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INTRODUCTION 



This book of class notes for COBOL for the TRS-80® Microcomputer, Volume One, was 
designed for use with either of the following instructional software packages published by 
Radio Shack®. 

• COBOL for the TRS-80 Models II, 12 and 16: Volume One (Catalog Number 26-2706), 
or 

• COBOL for the TRS-80 Model 4 and Model III, Volume One (Catalog Number 26-2702). 

The above packages contain a COBOL textbook, plus hands-on exercises on diskette, and 
are designed for use in a classroom, or for self-teaching. These Class Notes are designed 
as an aid to instructors who wish to teach Volume One COBOL in a classroom setting, and 
can also be used as a study aid for self-teaching. 

Chapters One through Seven of this manual present the instructional material from the 
Volume One COBOL course in skeleton form. Numerous examples of COBOL statements 
and portions of COBOL programs help illustrate the concepts covered. These notes can 
serve as a lecture aid for instructors and/or can be duplicated for use on overhead trans- 
parencies. A "True/False" quiz at the end of each chapter helps reinforce learning. 

The Appendix contains multiple-choice review questions based on the material covered in 
the Volume One course. At the teacher's discretion, these questions can be used as quiz 
material or as an open-book review for the students. 



CHAPTER ONE: INTRODUCTION TO COBOL 

COBOL 

THE FOUR DIVISIONS 

THE FUNCTIONS OF ANY PROGRAM 
INPUT 

PROCESSING 
OUTPUT 

FUNDAMENTAL PROCEDURE DIVISION VERBS 

THE FIRST PROGRAM 

COBOL ELEMENTS 

RESERVED WORDS 

PROGRAMMER-SUPPLIED NAMES 

LITERALS 

SYMBOLS 

LEVEL NUMBERS 

PICTURE CLAUSES 



COBOL — COMMON 
BUSINESS-ORIENTED LANGUAGE 

_ l_i a o py|QTpr% pQp Qycp xyycMTV YEARS AS T|-|F 

MOST WIDELY USED BUSINESS PROGRAMMING 
LANGUAGE 

• IS AVAILABLE ON MANY COMPUTERS, FROM MICROS 
SUCH AS THE TRS-80 MICROCOMPUTER TO VERY 
LARGE MACHINES 

• IS AN INDUSTRY-WIDE LANGUAGE, AND NOT THE 
PROPERTY OF ANY ONE VENDOR OR GROUP 

• HAS ACHIEVED A DEGREE OF STANDARDIZATION 
THROUGH THE AMERICAN NATIONAL STANDARDS 
INSTITUTE; FOR EXAMPLE, ANS 74 COBOL 



A COBOL PROGRAM CONTAINS FOUR DIVISIONS, IN 
THIS ORDER: IDENTIFICATION, ENVIRONMENT, DATA, 
AND PROCEDURE. 





COBOL 


































IDENTIFICATION 
DIVISION 




ENVIRONMENT 
DIVISION 


DATA 
DIVISION 




PROCEDURE 
DIVISION 



IDENTIFICATION DIVISION 



ENVIRONMENT DIVISION — 



DATA DIVISION 



PROCEDURE DIVISION 



SPECIFIES PROGRAM AND 
AUTHOR'S NAME. MAY 
ALSO CONTAIN OTHER 
IDENTIFYING 
INFORMATION SUCH AS 
DATE WRITTEN, 
INSTALLATION, AND SO 
ON. 

MENTIONS THE 
COMPUTER BEING USED 
AND IDENTIFIES 
EXTERNAL FILES. 

FULLY DESCRIBES ALL 
DATA, BOTH INPUT AND 
OUTPUT, WHICH IS USED 
OR PRODUCED BY THE 
PROGRAM. 

CONTAINS THE 
PROGRAM'S LOGIC. 



THE FIRST PROGRAM 

WRITE A COBOL PROGRAM THAT WILL ACCEPT AS 
INPUT THREE TEST GRADES, COMPUTE THE AVERAGE, 
AND DISPLAY THE ANSWER AS OUTPUT. 



THE PROCEDURE DIVISION IS "DRIVEN" BY A BOSS 
PARAGRAPH WHICH CALLS SUBORDINATE 
PARAGRAPHS. 

EVERY PROGRAM MUST PERFORM THREE FUNCTIONS: 
INPUT, PROCESSING, AND OUTPUT. 





THE 
BOSS 
































GET 
INPUT 




DO 
PROCESSING 




WRITE 
OUTPUT 
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FUNDAMENTAL PROCEDURE DIVISION VERBS: 



ACCEPT 



— OBTAINS INPUT FROM THE 
KEYBOARD 



DISPLAY 


— WRITES OUTPUT TO THE MONITOR 




(CRT) 


IF 


— ENABLES DECISION MAKING 


PERFORM 


— TRANSFERS CONTROL TO A 




SUBORDINATE MODULE 


ADD AND DIVIDE 


— CALCULATE 


STOP RUN 


— TERMINATES EXECUTION 
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THE FIRST COBOL PROGRAM 



000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
0002 1 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
1000580J 



IDENTIFICATION DIVISION. 
PROGRAM- ID. AVERAGE. 
AUTHOR. ROBERT GRAUER. 



.Identification Division 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



.Environment Division 



DATA DIVISION. 






WORKING-STORAGE SECTION. 






77 TEST-1 


PIC 999. 




77 TEST-2 


PIC 999. 




77 TEST-3 


PIC 999. 




77 TOTAL-SCORE 
77 AVERAGE 


PIC 999. 
PIC 999. 







Data Division 



PROCEDURE DIVISION. 
THE -BOSS. 

PERFORM GET- IN 

PERFORM DO-PROCESSING 

PERFORM WRITE-OUTPUT. 

STOP RUN. 




Paragraph names 



ION 6 LINE 8. 



POSITION 6 LINE U 



IEST-3 GIVING TOTAL-SCORE. 
BY 3 GIVING AVERAGE. 



DISPLAY "YOUR AVERAGE GRADE ON 3 TESTS 



LINE 16 AVERAGE. 



IF AVERAGE > B9 

DISPLAY "CONGRATULATIONS 



YOU ARE AN A STUDENT" REVERSE. 



IF AVERAGE < 70 

DISPLAY "YOU SHOULD STUDY HARDER" REVERSE. 



-COBOL sequence numbers 



COBOL ELEMENTS 

RESERVED WORDS 

PROGRAMMER-SUPPLIED NAMES 

LITERALS 

SYMBOLS 

LEVEL NUMBERS 

PICTURE CLAUSES 
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RESERVED WORDS 

• A PREDEFINED LIST OF SOME 300 RESERVED 
WORDS WHICH MUST BE USED IN A SPECIFIED 
WAY. 

• THE COMPLETE LIST IS SHOWN IN AN APPENDIX 
IN THE STUDENT TEXT. 

• EVERY COBOL STATEMENT CONTAINS AT LEAST 
ONE RESERVED WORD TO GIVE THE STATEMENT 
ITS MEANING. 

• MUST BE SPELLED CORRECTLY OR ELSE THEY 
WILL NOT BE RECOGNIZED: ENVIRONMENT, NOT 
ENVIROMENT. 
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PROGRAMMER-SUPPLIED NAMES 

• MAY CONTAIN THE LETTERS A THROUGH Z, THE 
DIGITS ZERO THROUGH 9, AND HYPHENS. 

• DATA NAMES MUST CONTAIN AT LEAST ONE 
LETTER; PARAGRAPH NAMES MAY BE ALL 
NUMERIC. 

• LIMITED TO THIRTY CHARACTERS OR FEWER. 

• CANNOT BEGIN OR END WITH A HYPHEN. 

• RESERVED WORDS CANNOT BE USED AS DATA 
NAMES. 

EXAMPLES OF VALID NAMES: 

GROSS-PAY COUNTER-1 START-THE-PROGRAM 
EXAMPLES OF INVALID NAMES: 

GROSS-PAY-IN-$ COUNTER ONE START 
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LITERALS 

• NUMERIC LITERALS MAY HAVE A LEADING SIGN 
AND A DECIMAL POINT, BUT CANNOT END ON A 
DECIMAL POINT. 

• NON-NUMERIC LITERALS ARE ENCLOSED IN 
QUOTES AND MAY CONTAIN ANYTHING AT ALL, 
INCLUDING BLANKS, RESERVED WORDS, AND SO 
ON. 

EXAMPLES OF VALID LITERALS: 

1 23 - 1 23.5 "1 23 + " "HELLO AND GOODBYE" 
EXAMPLES OF INVALID LITERALS: 

1 23. 1 23 + HELLO AND GOODBYE 
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SYMBOLS 



PUNCTUATION 

ENDS A COBOL ENTRY 

DELINEATES CLAUSES 
; DELINEATES CLAUSES 
" " SETS OFF NON-NUMERIC LITERALS 
( ) ENCLOSES EXPRESSIONS 

ARITHMETIC 

+ ADDITION 

- SUBTRACTION 

* MULTIPLICATION 

/ DIVISION 

CONDITIONAL 
> GREATER THAN 
< LESS THAN 
= EQUAL TO 
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LEVEL NUMBERS 

• USED IN DEFINING DATA NAMES. 

• 77 IS USED TO INDICATE AN INDEPENDENT DATA 
NAME (THAT IS, ONE WITH NO RELATIONSHIP TO 
OTHER DATA NAMES IN THE PROGRAM). 

• OTHER LEVEL NUMBERS MAY GO FROM 01 to 49 
INCLUSIVE AND DEFINE THE HIERARCHY AMONG 
DATA NAMES; FOR EXAMPLE: 

05 EMPLOYEE-NAME 

10 LAST-NAME 

10 FIRST-NAME 

10 MIDDLE-INITIAL 
05 EMPLOYEE-ADDRESS 

10 STREET-NUMBER 

10 CITY 

1 STATE 

• LEVEL NUMBERS ARE FURTHER EXPLAINED IN 
CHAPTER 2. 
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PICTURE CLAUSES 



DESCRIBE THE LENGTH OF A FIELD AND THE 
KIND OF DATA IT CONTAINS. 

PICTURES OF A, 9, AND X DENOTE ALPHABETIC, 
NUMERIC, AND ALPHANUMERIC, RESPECTIVELY. 

PIC 999 OR PIC 9(3) BOTH DENOTE A THREE- 
POSITION NUMERIC FIELD. 

PIC X(4) AND PIC AA DENOTE A FOUR-POSITION 
ALPHANUMERIC FIELD, AND A TWO-POSITION 
ALPHABETIC FIELD, RESPECTIVELY. 

EVERY DATA NAME USED IN A PROGRAM MUST 
BE DEFINED IN THE DATA DIVISION PRIOR TO ITS 
USE IN THE PROCEDURE DIVISION. 



16 



TRUE/FALSE REVIEW 

A COBOL PROGRAM CAN RUN ON A VARIETY OF 
COMPUTERS. 

THE DIVISIONS IN A COBOL PROGRAM MAY 
APPEAR IN ANY ORDER. 

NON-NUMERIC LITERALS MAY NOT CONTAIN 
NUMBERS. 

NUMERIC LITERALS MAY CONTAIN LETTERS. 

PICTURE CLAUSES CAN APPEAR IN COLUMN 12 OR 
AFTER. 

THE ACCEPT STATEMENT WAITS FOR A USER 
RESPONSE. 

THE DISPLAY STATEMENT PRINTS A MESSAGE ON 
THE CRT. 

8) A DATA NAME CANNOT CONTAIN ANY CHARACTERS 
OTHER THAN A LETTER OR A NUMBER. 

THE PERIOD HAS NO EFFECT ON AN IF 
STATEMENT. 

10) RESERVED WORDS MAY BE USED AS DATA NAMES. 
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CHAPTER TWO: FILE PROCESSING 

VOCABULARY 

EMPLOYEE SELECTION PROBLEM 
TEST DATA 
RESULTING OUTPUT 
PSEUDOCODE 
FLOWCHARTS 

COBOL STATEMENTS REQUIRED FOR FILE PROCESSING 
SELECT 
FD 

OPEN 
L/LCJot 
READ 
WRITE 

COBOL IMPLEMENTATION OF A LOOP 
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VOCABULARY 

FIELD — A SINGLE FACT ABOUT A LOGICAL 

ENTITY (FOR EXAMPLE: NAME, SOCIAL 
SECURITY NUMBER, ETC.). 

RECORD — A SET OF FACTS (OR FIELDS) ABOUT A 

LOGICAL ENTITY (FOR EXAMPLE: 
NAME, ADDRESS, SALARY, AND TITLE 
MAY COMPRISE AN EMPLOYEE 
RECORD). 

F | LE _ a SET OF RECORDS (FOR EXAMPLE: A 

COMPANY WITH 500 EMPLOYEES 
WOULD REQUIRE 500 EMPLOYEE 
RECORDS, IN ONE EMPLOYEE FILE). 
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EMPLOYEE SELECTION PROBLEM 



PROCESS A FILE OF EMPLOYEE RECORDS, SELECTING 
ANY INDIVIDUAL WHO IS BOTH A PROGRAMMER AND 
UNDER 30 YEARS OLD. 



USE THE FOLLOWING TEST DATA: 



NAME 
JOHN DOE 
PEGGY WILCOX 
JOHN SMITH 
SHEILA LEVINE 
MARSHAL CRAWFORD 
STANLEY STEAMER 
BENJAMIN LEE 
DICK PERSNICKETY 
MARION MILGROM 



TITLE 

ANALYST 

PROGRAMMER 

PROGRAMMER 

PROGRAMMER 

MANAGER 

PROGRAMMER 

PROGRAMMER 

PROGRAMER 

JR. PROG 



AGE 
35 
31 
24 
29 
33 
22 
26 
28 
24 



SALARY 

23000 

19000 

15000 

19000 

28000 

39000 

12000 

19000 

10000 
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THE RESULTING OUTPUT IS: 



SALRY REPORT FOR PROGRAMMERS UNDER 30 


JOHN SMITH 


24 1 5000 


SHEILA LEVINE 


29 19000 


STANLEY STEAMER 


22 39000 


BENJAMIN LEE 


26 12000 





WHY WERE THE FOLLOWING RECORDS NOT 
INCLUDED IN THE REPORT: JOHN DOE, PEGGY 
WILCOX, DICK PERSNICKETY? 

WHY IS THE WORD "SALARY" MISSPELLED? 



THE COMPUTER DOES EXACTLY WHAT IT HAS BEEN 
PROGRAMMED TO DO, WITHOUT REGARD FOR THE 
CORRECTNESS OF THE LOGIC OR DATA ON WHICH IT 
OPERATES. 
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PSEUDOCODE 



HOUSEKEEPING 
INITIAL READ 



DO WHILE DATA REMAINS 



IF EMPLOYEE IS A PROGRAMMER AND UNDER 30 

WRITE NAME ON REPORT 
ELSE 

DO NOTHING 



READ NEXT RECORD 
END DO 

STOP 
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FLOWCHARTS 




HOUSEKEEPING 
2 



READ FIRST 

RECORD 

3 



Decision to write information 
for qualified employees only 




Processing loop indicating that instructions will 
be executed many times 
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ELEMENTARY FILE PROCESSING PROGRAM 



000100 
000110 

000 1 20 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
0005 1 
000520 
000530 
000540 
000550 
000560 
0005 70 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 



IDENTIFICATION DIVISION. 
PROGRAM-ID. FIRSTTRY. 
AUTHOR. MARION MILGROM. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 




SELECT lEMPLOYEE-FILEt 

ASSIGN TO INPUT " FI RSTTRY/DAT" 
SELECT PRINT-FILE 

ASSIGN TO PRINT " FI RSTTRY/TXT" 

DATA DIVISION. 
FILE SECTION. 



|FD EMPLOYEE-FILE} 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 
01 EMPLOYEE-RECORD. 



|05 


EMP-NAME 


PIC X(20).| 


05 


EMP-TITLE 


PIC X< 10). 


|05 


EMP-AGE 


PIC 99. | 



05 FILLER 

05 EMP-SALARY 

05 FILLER 

PRINT-FILE 

LABEL RECORDS ARE STANDARD 
IRECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 
PRINT-LINE. 
05 PRINT-NAME 
05 FILLER 

PRINT-AGE 

FILLER 

PRINT-SALARY 

FILLER 




Required for file processing 

Filename also specified in FD, OPEN, and 
CLOSE statements 



-FD is required for every file 



.EMP-NAME is in positions 1-20 



•EMP-AGE is in positions 31 and 32 



PICTURE clauses sum to 132 



05 
05 







PIC 


X ( 25 ) . 


PIC 


XX. 


PIC 


99. 


PIC 


X(3) . 


PIC 


9(5). 


PIC 


X<95) . 



WORKING-STORAGE SECTION. 
77 WS-DATA-REMAINS-SWITCH 



PROCEDURE DIVISION. 
SELECT-PROGRAMMERS. 



PIC X(3) 



OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 



VALUE SPACES. 

-Files are opened before processing 
-Salary is misspelled 



MOVE SPACES TO PRINT 

MOVE ISALRYh -RgFtiTfrFOR PROGRAMMERS UNDER 30" TO PRINT-LINE. 

WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 



PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAINS-SWITCH 



CLOSE EMPLOYEE-FILE 
PRINT-FILE. 



"NO" . 



STOP RUN. 



PROCESS-RECORDS. 



IF 




EMP- 



EMP-TI TLE = ".PROGRA 
MOVE SPACSS-I^t-PrTnT- LINE 

P-NAME TO PRINT-NAME 
MOVE EMP-AGE TO PRINT-AGE 
MOVE EMP-SALARY TO PRINT-SALARY 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINE 




•Initial read 

■Files are closed prior to termination 

-Executed only when IF is satisfied 

30 

Single period terminates IF statement 
Reads every record but the first 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 



25 



COBOL STATEMENTS REQUIRED 
FOR FILE PROCESSING 



ENVIRONMENT DIVISION 
SELECT 

DATA DIVISION 
FD 

PROCEDURE DIVISION 
OPEN 
CLOSE 
READ 
WRITE 
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THE SELECT STATEMENT TIES A PROGRAMMER- 
CHOSEN FILE NAME TO A SYSTEM NAME. FOR 
EXAMPLE: 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "EMPLOYEE/DAT". 

SELECT REPORT-FILE 

ASSIGN TO PRINT "ERROR/TXT". 
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AN FD (FILE DESCRIPTION) IS REQUIRED FOR EVERY 
FILE IN A PROGRAM. FOR EXAMPLE: 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 

01 EMPLOYEE-RECORD. 

05 EMP-NAME PIC X(20). 

05 EMP-SALARY PIC 9(5). 



NOTE: THE PICTURE CLAUSE DESCRIBES THE TYPE 

AND LENGTH OF ALL FIELDS WITHIN A RECORD. 
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ALL FILES MUST BE OPENED PRIOR TO PROCESSING 
AND CLOSED BEFORE PROGRAM TERMINATION. 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT REPORT-FILE. 

CLOSE EMPLOYEE-FILE, REPORT-FILE. 



NOTE: THE TYPE OF FILE, INPUT OR OUTPUT, IS 

MENTIONED IN THE OPEN, BUT NOT IN THE 
CLOSE, STATEMENT. 
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THE READ AND WRITE STATEMENTS ARE USED FOR 
INPUT AND OUTPUT, RESPECTIVELY. 

READ EMPLOYEE-FILE 

AT END MOVE "NO" TO DATA-SWITCH. 

WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 

NOTES: 1) A FILE OF N RECORDS IS READ N + 1 
TIMES. 
2) SYNTACTICALLY, COBOL READS A FILE, BUT 
WRITES A RECORD. 



30 



COBOL IMPLEMENTATION OF A LOOP: 

INCORRECT 

PERFORM PROCESS-RECORDS 

UNTIL EOF-SWITCH = "YES' 



PROCESS-RECORDS. 

READ INPUT-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 
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COBOL IMPLEMENTATION OF A LOOP 
CORRECT: 

READ INPUT-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 
PERFORM PROCESS-RECORDS 

UNTIL EOF-SWITCH = "YES". 



PROCESS-RECORDS. 



READ INPUT-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 
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TRUE/FALSE REVIEW 

A FILE IS A SET OF RECORDS. 

A RECORD IS A SET OF FILES. 

THE COMPUTER IS A PERFECT SPELLER AND 
AUTOMATICALLY CORRECTS SPELLING ERRORS. 

A FIELD CONTAINS ONE OR MORE RECORDS. 

PSEUDOCODE MUST BE WRITTEN ACCORDING TO 
PRECISE SYNTACTICAL RULES. 

PSEUDOCODE SERVES THE SAME FUNCTION AS A 
FLOWCHART. 

A COBOL PROGRAM OFTEN CONTAINS TWO 
DISTINCT READ STATEMENTS. 

8) THE READ STATEMENT TYPICALLY CONTAINS AN 
AT END CLAUSE. 

A FILENAME MAY NOT APPEAR IN MORE THAN TWO 
STATEMENTS IN THE SAME PROGRAM. 

1 0) EVERY PROGRAM MUST HAVE A FILE SECTION. 
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CHAPTER THREE: 
COBOL ON THE TRS-80® MICROCOMPUTER 

COMPILATION 

COBOL VERSUS MACHINE LANGUAGE 

TRS-80 COBOL COMMANDS FOR COMPILATION AND 
EXECUTION 

FILENAMES AND EXTENSIONS 

TRSDOS COMMANDS AND UTILITIES 

CEDIT 

INSERT MODE 
EDIT MODE 
COMMAND MODE 

PRINT 
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COMPILER — A COMPUTER PROGRAM WHICH 
TRANSLATES A HIGHER-LEVEL LANGUAGE, SUCH AS 
COBOL, INTO A MACHINE LANGUAGE. 
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COBOL VERSUS MACHINE LANGUAGE: 

A PROGRAM WRITTEN IN A HIGHER-LEVEL LANGUAGE 
IS SHORTER AND EASIER TO FOLLOW THAN ONE 
WRITTEN IN A MACHINE LANGUAGE. 

COBOL- 
COMPUTE X = (A + B) * C 
MACHINE LANGUAGE: 

LOAD 1 00 

ADD 200 

MULTIPLY 300 

STORE 400 

(THIS EXAMPLE ASSUMES THAT THE LOCATIONS OF A, 
B, C, AND X ARE 100, 200, 300, AND 400, RESPECTIVELY.) 
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TRS-80 COBOL COMMANDS FOR COMPILING A 
PROGRAM: 

RSCOBOL FILENAME OPTIONS 

OPTIONS INCLUDE: 

L — COMPILER LISTING 

O — OBJECT MODULE 

P — SENDS LISTING TO THE PRINTER 

T — DISPLAYS LISTING ON CRT 

X _ PRODUCES A CROSS REFERENCE 

EXAMPLE: 

RSCOBOL FIRSTTRY L X T 
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TRS-80 COBOL COMMANDS FOR EXECUTING A 
PROGRAM: 

RUNCOBOL FILENAME 

EXAMPLE: 

RUNCOBOL FIRSTTRY 



NOTE: EXECUTION SHOULD NOT BE ATTEMPTED UNTIL 
THE SOURCE PROGRAM FIRSTTRY/CBL HAS COMPILED 
CLEANLY AND PRODUCED THE OBJECT MODULE 
FIRSTTRY/COB. 
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COMPILING AND EXECUTING A PROGRAM 



PAYROLL 
/CBL 



PAYROLL 
/DAT 
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FILENAMES AND EXTENSIONS 

ALL FILES ARE SPECIFIED BY A FILENAME AND 
EXTENSION, WITH THE FOLLOWING 
CONVENTIONS; 

THE FOLLOWING EXTENSIONS ARE TRS-80 
CONVENTIONS: 

CBL — FOR EXAMPLE, FIRSTTRY/CBL, A COBOL 
SOURCE PROGRAM. 

COB — FOR EXAMPLE, FIRSTTRY/COB, THE 

OBJECT (EXECUTABLE) MODULE 
PRODUCED BY COMPILATION. 

LST — FOR EXAMPLE, FIRSTTRY/LST, THE 

OUTPUT (LISTING) OF A COMPILATION, 
AND USUALLY PRODUCED AS HARD 
COPY. 

THE FOLLOWING EXTENSIONS ARE AUTHOR 
CONVENTIONS: 

DAT — FOR EXAMPLE, FIRSTTRY/DAT, A DATA 

FILE WHICH IS READ DURING EXECUTION. 

TXT — FOR EXAMPLE, FIRSTTRY/TXT, THE 

REPORT PRODUCED BY EXECUTING THE 
OBJECT MODULE. 

AS CAN BE SEEN, THE SAME FILENAME CAN EXIST WITH 

MULTIPLE EXTENSIONS. 
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TRSDOS COMMANDS AND UTILITIES 

AN OPERATING SYSTEM IS A SET OF COMPUTER 
PROGRAMS SUPPLIED BY THE COMPUTER 
MANUFACTURER, WHICH PROVIDE FOR THE EFFICIENT 
OPERATION OF THE COMPUTER. 

THE TRSDOS OPERATING SYSTEM CONTAINS MANY 
COMMANDS AND UTILITY PROGRAMS WITH WHICH THE 
COBOL PROGRAMMER SHOULD BE FAMILIAR. THESE 
INCLUDE: 

FORMAT — FOR EXAMPLE, FORMAT :1 

(ID = TRSDOS,PW = PASSWORD,FULL) 

MUST BE USED ON ALL BLANK 
DISKETTES PRIOR TO SAVING ANY 
INFORMATION. 

BACKUP — FOR EXAMPLE, BACKUP (THE 

PROGRAM PROMPTS THE USER FOR 
SUBSEQUENT RESPONSES). BACKUP 
COPIES ALL FILES FROM ONE 
DISKETTE TO ANOTHER. 

COPY — FOR EXAMPLE, COPY PAYROLL/CBL TO 
PAYROLL/CBL:1. COPIES A SINGLE 
PROGRAM FROM ONE DISKETTE TO 
ANOTHER. 
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KILL — FOR EXAMPLE, KILL PAYROLL/CBL. 

DELETES A SINGLE FILE FROM A 
DISKETTE. 

PURGE — FOR EXAMPLE, PURGE (THE SYSTEM 

CONTINUALLY PROMPTS THE USER WITH 
FILENAMES FOR POSSIBLE DELETION). 
PROVIDES FOR RAPID DELETION OF 
MANY OR ALL FILES ON A DISKETTE. 



RENAME 



DIR — 



FORMS 



FOR EXAMPLE, RENAME OLD/CBL TO 
NEW/CBL. RENAMES A FILE. 

FOR EXAMPLE, DIR OR DIR :1. LISTS 
THE DISKETTE DIRECTORY. 

FOR EXAMPLE, FORMS (THE SYSTEM 
PROMPTS FOR ADDITIONAL 
COMMANDS). SHOULD BE USED 
PRIOR TO PRINTING. 

FOR EXAMPLE, I. MUST BE USED 
PRIOR TO SWAPPING DISKETTES. 
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CEDIT - COBOL SOURCE PROGRAM EDITOR 

• USED TO CREATE AND MODIFY COBOL 
PROGRAMS 

• THREE MODES OF OPERATION 

INSERT 

EDIT 

COMMAND 

• INVOKED SIMPLY BY THE COMMAND CEDIT, 
FOLLOWING TRSDOS READY MESSAGE 
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REGARDLESS OF THE PARTICULAR MODE, (COMMAND, 
INSERT, OR EDIT), THE PROGRAMMER MUST ADHERE 
TO SPECIFIED COLUMNS IN ACCORDANCE WITH COBOL 
SYNTAX: 

NOTE: THE TAB KEY MAY PROVE QUITE USEFUL 



COLUMNS 


PURPOSE 


1-6 


SEQUENCE NUMBERS (GENERATED 




AUTOMATICALLY BY CEDIT) 


7 


COMMENTS, CONTINUATION, OR / 


8-11 


A MARGIN 


12-72 


B MARGIN 


73-80 


PROGRAM-ID (OF LITTLE USE) 



CERTAIN ENTRIES ARE REQUIRED TO BEGIN IN THE "A 
MARGIN." THESE INCLUDE: DIVISION AND SECTION 
HEADERS, PARAGRAPH NAMES, FD'S, 01'S, AND 77 
LEVEL ENTRIES. ANY ENTRY NOT REQUIRED TO BEGIN 
IN THE "A MARGIN" BEGINS IN OR PAST COLUMN 12. 
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INSERT MODE 

USED TO CREATE PROGRAMS OR TO ADD NEW LINES 
TO EXISTING PROGRAMS. 

ENTERED FROM COMMAND MODE THROUGH I AND R 
COMMANDS 

SYNTAX: I STARTING-LINE, INCREMENT 

FOR EXAMPLE: 

1100,10 

I 200 (USES CURRENT INCREMENT) 

I ,10 (STARTS FROM CURRENT LINE) 

SYSTEM WILL NOT PERMIT PROGRAMMER TO INSERT 
AN EXISTING LINE. IF THIS IS ATTEMPTED, IT 
PRODUCES THE MESSAGE "NO ROOM BETWEEN 
LINES". 

LINE CONFLICT IS SOLVED BY AUTOMATICALLY 
RENUMBERING (A) OR RENUMBERING (N) COMMANDS. 
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EDIT MODE: 

USED TO MAKE CHANGES TO A SPECIFIED LINE. 

AVOIDS MULTIPLE C AND/OR X COMMANDS TO THE 
SAME LINE 

HAS SEVERAL SUBCOMMANDS, INCLUDING: 

D — DELETES A CHARACTER 

I — ENTERS INSERTION MODE ON A CHARACTER 

BASIS 
C — CHANGES A CHARACTER (PRECEDED BY A 

NUMBER; FOR EXAMPLE, 3C WILL CHANGE 

THE NEXT 3 CHARACTERS) 

SPECIAL KEYS 

(ED — ESCAPES FROM INSERTION SUB-MODE 
AND RETURNS TO EDIT MODE 

CENTER) — ENDS EDITING AND RETURNS TO 
COMMAND MODE 
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EXAMPLE OF EDIT MODE: 



OLD LINE: 



000100 ABCDEFFFFGHIJPQRXTUVWXYZ 



E 100 



.BEGINS INSERTION 



000100 ABCDEF GHIJ 



PQR TUVWXYZ 




DDD IKLMNO/F1 




fCHANGES 1 CHARACTER 
.RETURNS TO EDIT MODE 



.DELETES THREE 
CHARACTERS 



NEW LINE: 



000100 ABCDEFGHIJKLMNOPQRSTUVWXYZ 
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COMMAND MODE: 

A — AUTOMATIC RENUMBERING TO AVOID LINE 
COLLISIONS IN THE I OR R COMMANDS 

B — DISPLAYS THE FIRST (BEGINNING) LINE 
(ON MODELS II, 12 AND 16 ONLY) 

C — UNCONDITIONAL REPLACEMENT (CHANGE) 
OF ONE CHARACTER STRING BY ANOTHER 

C/OLD-STRING/NEW-STRING/ 

C/OLD/NEW/3 

C/OLD// 

D — DELETES A LINE OR LINES 

D100 
D 100:200 
D 5:* 

E — ENTERS EDIT MODE, WHICH WAS 
PREVIOUSLY EXPLAINED 

F — FINDS A CHARACTER STRING. UPON 

COMPLETION, THE CURRENT LINE IS SET TO 
THE LINE OF THE LAST FIND. 

F/STRING/ 

F/STRING/* 

F/X/3 
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I — ENTERS THE INSERT MODE (TO ESCAPE 
PRESS EITHER ESC OR BREAK KEY) 

I 100 
I 100, 1 
I 

L — LOADS A CBL SOURCE FILE 

L PAYROLL 
L PAYROLL :1 

N — RENUMBERS ALL LINES IN THE TEXT 

N 100 
N 100, 20 

p _ PRINTS THE SPECIFIED LINE OR LINES (IF 

LINE-RANGE IS OMITTED, THE NEXT 20 LINES 
ARE PRINTED.) 

P500 
P 100:200 
P 200:* 
P 

q _ QUITS CEDIT AND RETURNS TO TRSDOS 
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R — REPLACES SPECIFIED LINE AND CONTINUES 
IN INSERT MODE (EXIT INSERT MODE BY 
HITTING EITHER ESC OR BREAK KEYS) 

R100 
R100, 2 

S — ACCEPTS A TRSDOS COMMAND AND 
RETURNS TO CEDIT 

SDIR 

T — DISPLAYS TOP LINE (ON 
MODEL III AND 4 ONLY) 

W— WRITES CURRENT TEXT (WORKFILE) AS A 
PERMANENT FILE WITH EXTENSION CBL 

W PAYROLL 

X — CONDITIONAL REPLACEMENT OF ONE 
CHARACTER STRING BY ANOTHER 

X/OLD-STRING/NEW-STRING/ 

X/OLD/NEW/3 

X/OLD// 
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TRSDOS PRINT UTILITY 

• USED TO PRINT COMPILER LISTINGS, COBOL 
SOURCE PROGRAMS, OR OUTPUT FROM 
EXECUTED PROGRAMS. 

• THE FORMS COMMAND SHOULD BE EXECUTED 
PRIOR TO PRINT. 

• EXAMPLES: 

PRINT FIRSTTRY/LST 
PRINT FIRSTTRY/CBL 
PRINT FIRSTTRY/TXT 



52 



TRUE/FALSE REVIEW 

1) RSCOBOL AND RUNCOBOL ARE EQUIVALENT 
COMMANDS. 

2) CBL IS THE EXTENSION FOR A COBOL SOURCE 
PROGRAM. 

3) A CROSS-REFERENCE LISTING IS ALWAYS 
PROVIDED WITH A COBOL COMPILE. 

4) THE COMMAND X/PRT/PRINT/ ALWAYS CHANGES 
PRT TO PRINT. 

5) THE COMMAND C/PRT/PRINT/10 CHANGES PRT TO 
PRINT IN LINE 10. 

6) THE COMMAND RSCOBOL PAYROLL L WILL 
CREATE THE FILES PAYROLL/COB AND 
PAYROLL/LST. 

7) THE COMMAND P 100:300 PRINTS 20 LINES. 

8) STATEMENT NUMBERS CAN NEVER BE CHANGED. 

9) A COBOL PROGRAM IS REQUIRED TO CREATE A 
DATA FILE. 

10) THE UTILITY COBOLPRT IS USED TO PRINT A 
COBOL PROGRAM. 
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CHAPTER FOUR: THE COBOL LANGUAGE 

COBOL NOTATION 

IDENTIFICATION DIVISION 

ENVIRONMENT DIVISION 

DATA DIVISION 

FILE SECTION, WORKING-STORAGE SECTION, 
GROUP VERSUS ELEMENTARY ITEMS (PICTURE 
CLAUSE, LEVEL NUMBERS, VALUE CLAUSE) 

PROCEDURE DIVISION 

ADD, SUBTRACT, MULTIPLY, DIVIDE, COMPUTE, 
OPEN, CLOSE, READ, WRITE, IF, PERFORM, MOVE, 
STOP RUN 

NUMERIC VERSUS EDITED FIELDS 
PAYROLL PROGRAM 
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COBOL NOTATION 

UPPER-CASE LETTERS = RESERVED WORDS 



lower-case letters 



UNDERLINE 



BRACKETS ([ ]) 
BRACES ({ }) 



_ pp|0Qp^|y||yj^p 

SUPPLIED NAME 

= REQUIRED RESERVED 
WORD 

= OPTIONAL ENTRY 

= CHOICE 



THREE PERIODS (...) = 



REPETITION OF LAST 
SYNTACTICAL UNIT 
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COBOL NOTATION (CONTINUED) 
WRITE record-name 



BEFORE AnwAMriMr inte 9 er LINES 
AFTER ADVANCING PAGE I 



ALL OF THE FOLLOWING ARE ACCEPTABLE: 
WRITE PRINT-LINE. 

WRITE PRINT-LINE AFTER ADVANCING 2 LINES. 
WRITE PRINT-LINE AFTER 2. 
WRITE PRINT-LINE BEFORE ADVANCING PAGE. 
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IDENTIFICATION DIVISION. 



PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

SECURITY. 



FIRSTTRY. 
ROBERT GRAUER. 
TANDY CORPORATION. 
OCTOBER 31, 1983. 
TOP SECRET. 



THE PROGRAM-ID PARAGRAPH IS THE ONLY REQUIRED 
ENTRY. 
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ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "PAYROLL/DAT" 
SELECT PRINT-FILE 

ASSIGN TO PRINT "PAYROLL/TXT". 
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DATA DIVISION 

FILE SECTION 

• CONTAINS AN FD (FILE DESCRIPTION) FOR 
EVERY FILE SPECIFIED IN A SELECT STATEMENT 

• DEFINES ALL DATA NAMES WHICH APPEAR IN 
ANY FILE AS TO TYPE, LENGTH, AND POSITION 
WITHIN A RECORD. 

WORKING-STORAGE SECTION 

• DEFINES ALL DATA NAMES WHICH WERE NOT 
PREVIOUSLY DESCRIBED IN THE FILE SECTION. 
THESE DATA NAMES TYPICALLY INCLUDE 
COUNTERS, PROGRAM SWITCHES, AND VARIOUS 
PRINT LINES. 
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GROUP ITEMS VERSUS ELEMENTARY ITEMS 

A GROUP ITEM IS SUBDIVIDED INTO ONE OR MORE 
ELEMENTARY ITEMS. IT NEVER HAS A PICTURE 
CLAUSE 

AN ELEMENTARY ITEM IS NOT FURTHER 
SUBDIVIDED AND ALWAYS HAS A PICTURE CLAUSE 

LEVEL NUMBERS ARE USED TO INDICATE THE 
HIERARCHICAL RELATIONSHIP BETWEEN GROUP 
AND ELEMENTARY ITEMS 

THE PICTURE CLAUSE INDICATES THE TYPE AND 
SIZE OF A FIELD (FOR EXAMPLE, PIC X(15), PIC 9(4), 
ETC.) 
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EXAMPLE 1 



01 



EMPLOYEE-RECORD. 




05 


EMP-NAME. 






10 EMP-FIRST-NAME 


PICX(10). 




10 EMP-LAST-NAME 


PICX(15). 


05 


EMP-SALARY 


PIC 9(5). 


05 


EMP-DATE-OF-BIRTH. 






10 EMP-BIRTH-MONTH 


PIC 99. 




10 EMP-BIRTH-YEAR 


PIC 99. 


05 


FILLER 


PIC X(46). 



EXAMPLE 2: 



01 EMPLOYEE-RECORD. 

04 EMP-NAME. 

08 EMP-FIRST-NAME 
08 EMP-LAST-NAME 

04 EMP-SALARY 

04 EMP-DATE-OF-BIRTH. 
08 EMP-BIRTH-MONTH 
08 EMP-BIRTH-YEAR 

04 FILLER 



PICTURE X(10). 
PICTURE X(1 5). 
PICTURE 9(5). 

PICTURE 9(2). 
PICTURE 9(2). 
PICTURE X(46). 
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EXAMPLE 3: 



WORKING-STORAGE SECTION. 

11 END-OF-FILE-SWITCH PIC X(3) VALUE SPACES. 



01 PROGRAM-COUNTERS. 

05 TOTAL-GROSS-PAY PIC 9(6) 
05 TOTAL-NET-PAY PIC 9(6) 



01 HEADING-LINE-ONE. 
05 FILLER 
05 FILLER 
05 FILLER 
05 FILLER 
05 FILLER 

01 DASHED-LINE. 
05 FILLER 



PIC X(5) 
PIC X(4) 
PICX(13) 
PIC X(6) 
PICX(104) 



VALUE ZEROS. 
VALUE ZEROS. 

VALUE SPACES. 
VALUE "NAME". 
VALUE SPACES. 
VALUE "SALARY". 
VALUE SPACES. 



PIC X(40) VALUE ALL "-" 



NOTE THE USE OF FIGURATIVE CONSTANTS (SPACES 
AND ZEROS) AND THE WORD "ALL" IN CONJUNCTION 
WITH THE VALUE CLAUSE. 
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PROCEDURE DIVISION 



ARITHMETIC 
ADD 

SUBTRACT 
MULTIPLY 
DIVIDE 
COMPUTE 

I/O OPERATIONS 
OPEN 

READ 
WRITE 

DECISIONS 
IF 

LOOPING 

PERFORM 

DATA TRANSFER AND EDITING 
MOVE 

PROGRAM TERMINATION 
STOP RUN 
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ADD 

THE STATEMENT: 

ADD A B GIVING C. 

TAKES THE VALUE OF A, ADDS IT TO B, AND PUTS 
THE RESULT IN C. FOR EXAMPLE, IF A, B, AND C 
ARE INITIALLY 20, 25, AND 30, C WILL HAVE A FINAL 
VALUE OF 45. 

THE STATEMENT: 

ADD A B TO C. 

TAKES THE VALUE OF A, ADDS IT TO B, ADDS THE 
RESULT TO C AND PUTS THE FINAL SUM IN C. * 
USING THE VALUES OF 20, 25, AND 30 AS ABOVE, C 
WILL HAVE A FINAL VALUE OF 75. 
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SUBTRACT 

THE STATEMENT: 

SUBTRACT A FROM B. 

SUBTRACTS THE VALUE OF A FROM THE VALUE OF 

B, AND LEAVES THE RESULT IN B. FOR EXAMPLE, IF 
A AND B ARE INITIALLY 4 AND 6, THEY WILL 
ASSUME FINAL VALUES OF 4 AND 2, RESPECTIVELY. 

THE STATEMENT: 

SUBTRACT A FROM B GIVING C. 

SUBTRACTS A FROM B AND PUTS THE RESULT IN 

C. (THE VALUES OF A AND B ARE UNCHANGED.) 
USING THE SAME NUMBERS AS ABOVE, THE FINAL 
VALUES OF A, B, AND C ARE 4, 6, AND 2, 
RESPECTIVELY. 
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MULTIPLY 

THE STATEMENT 

MULTIPLY A BY B. 

MULTIPLIES THE VALUE OF A BY THE INITIAL VALUE 
OF B, AND PUTS THE RESULT IN B. GIVEN INITIAL 
VALUES OF 10 AND 20 FOR A AND B, RESPECTIVELY, 
THE FINAL VALUES WILL BE 10 AND 200. 

THE STATEMENT 

MULTIPLY A BY B GIVING C. 

MULTIPLIES A BY B AND PUTS THE RESULT IN C. 
(THE VALUES OF A AND B ARE UNCHANGED.) 
USING THE SAME NUMBERS AS ABOVE, THE FINAL 
VALUES OF A, B, AND C ARE 10, 20, AND 200, 
RESPECTIVELY. 
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DIVIDE 

THE STATEMENT 

DIVIDE A INTO B. 

TAKES THE VALUE OF A, DIVIDES IT INTO B, AND 
LEAVES THE RESULT IN B. (IN OTHER WORDS, B IS 
DIVIDED BY A.) IF A AND B ARE INITIALLY 3 AND 6, 
THEY WILL ASSUME FINAL VALUES OF 3 AND 2, 
RESPECTIVELY. 

THE STATEMENT 

DIVIDEBBYAG/WA/GC. 

DIVIDES B BY A AND PUTS THE RESULT IN C. (THE 
VALUES OF A AND B ARE UNCHANGED.) USING THE 
SAME NUMBERS AS ABOVE, A, B, AND C WILL HAVE 
FINAL VALUES OF 3, 6, AND 2, RESPECTIVELY. 
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COMPUTE 

THE COMPUTE STATEMENT CAN COMBINE SEVERAL 
ARITHMETIC OPERATIONS INTO A SINGLE STATEMENT. 
FOR EXAMPLE: 

COMPUTE X = (A - B) / (C + D) 
VERSUS: 

SUBTRACT B FROM A GIVING NUMERATOR. 

ADD C D GIVING DENOMINATOR. 

DIVIDE NUMERATOR BY DENOMINATOR GIVING X. 
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COMPUTE (CONTINUED) 

RULES OF PRECEDENCE ARE REQUIRED TO ELIMINATE 
AMBIGUITY IN THE COMPUTE STATEMENT. GIVEN 
VALUES OF 1 , 2, AND 3 FOR A, B, AND C, RESPECTIVELY, 
IS D EQUAL TO 9 OR 7? 

COMPUTE D = A + B * C 

THE ANSWER IS 7, BECAUSE OF THE HIERARCHY OF 
OPERATIONS: 

1) MULTIPLY OR DIVIDE 

2) ADD OR SUBTRACT 

3) LEFT TO RIGHT, IF A TIE. 

PARENTHESES CAN CLARIFY AND IN SOME CASES 
ALTER THE NORMAL SEQUENCE OF OPERATIONS. 
WHICH STATEMENT IS EQUIVALENT TO THE ABOVE? 

COMPUTE D = (A + B) * C 

OR 

COMPUTE D = A + (B * C) 
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INPUT/OUTPUT STATEMENTS 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 

READ EMPLOYEE-FILE 

AT END MOVE "NO" TO DATA-REMAINS-SWITCH. 

WRITE PRINT-RECORD 

AFTER ADVANCING 2 LINES. 

CLOSE EMPLOYEE-FILE 
PRINT-FILE. 
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IF STATEMENT (FOR DECISIONS) 

[F condition statement- 1T ELSE statement-2] 

STATEMENT-1 IS TERMINATED BY A PERIOD OR AN 
ELSE. IN OTHER WORDS, SEVERAL ACTIONS MAY BE 
TAKEN WHEN A CONDITION IS TRUE. FOR EXAMPLE: 



OR 



IFA> B 

MOVE C TO D 




Done collectively or 
not at all 



IFX>Y 

ADD 1 TO 
ADDIJOF 

ELSE 

'>D 1 TO G 
ADD 1 TO H. 
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IF STATEMENT (CONTINUED) 

THE IF MAY BE CODED WITH OR WITHOUT AN ELSE 



EXAMPLE 1 



IFA>B 

MOVE C TO D 
ELSE 

MOVE C TO E. 
MOVE X TO Y. 




YES 



MOVEC 
TOE 



MOVEC 
TOD 




MOVE X TO Y 



EXAMPLE 2: 



IFA>B 

MOVE C TO D. 
MOVE X TO Y. 




YES 



MOVEC 
TOD 



o 



-H H- 



MOVE X TO Y 
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PERFORM STATEMENT 

PERFORM paragraph-name [ UNTIL condition ] 

FOR EXAMPLE: 

PERFORM FIRST-PARAGRAPH. 
ADD 1 TO EMPLOYEE-TOTAL. 



TRANSFER 
CONTROL 



FIRST-PARAGRAPH. 

— " RETURN TO 

SECOND-PARAGRAPH. 
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PERFORM STATEMENT (CONTINUED) 

THE PERFORM STATEMENT IS USED TO PROCESS A 
FILE UNTIL NO MORE DATA REMAINS; 

READ INPUT-FILE 

AT END MOVE "NO" TO DATA-SWITCH. 
PERFORM PROCESS-RECORDS 

UNTIL DATA-SWITCH = "NO". 



PROCESS-RECORDS. 



READ INPUT-FILE 

AT END MOVE "NO" TO DATA-SWITCH. 
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MOVE STATEMENT 

MOVE { j^ r n aj fier " 1 I IQ identifier-2 



THE MOVE STATEMENT TRANSFERS DATA BETWEEN 
ONE STORAGE LOCATION AND ANOTHER. 

FOR EXAMPLE: 

MOVE 15000 TO BEGINNING-SALARY. 
MOVE "PAYROLL REPORT" TO PRINT-LINE. 
MOVE BEGINNING-SALARY TO PRINT-SALARY. 
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NUMERIC VERSUS EDITED FIELDS 

• ALL COMPUTATIONS ARE DONE ON NUMERIC 
FIELDS (THOSE WHOSE PICTURE CLAUSES 
CONTAIN ONLY 9'S AND AN OPTIONAL IMPLIED 
DECIMAL POINT). 

• THE NUMERIC FIELD IS MOVED TO AN EDITED 
FIELD PRIOR TO PRINTING. 

CONSIDER: 

01 NUMERIC-FIELDS. 

05 HOURS PIC 99. 

05 RATE PIC 99V99. 

05 PAY PIC 999V99. 
01 PRINT-LINE. 

05 PRT-HOURS PIC Z9. 

05 PRT-RATE PIC $$9.99. 

05 PRT-PAY PIC $999.99. 

COMPUTE PAY = HOURS * RATE. 
MOVE PAY TO PRT-PAY. 
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USE OF EDITING SYMBOLS 





SOURCE FIELD 


RECEIVING FIELD 




PICTURE 


CONTENTS 


PICTURE 


CONTENTS 


A. 


9(4) 


0678 


9(4) 


0678 


B. 


9(4) 


0678 


$9(4) 


$0678 


C. 


9(4) 


0678 


vpCpCpCpvP 


$678 


D. 


9(4)V99 


1 23456 


9(4).99 


1234.56 


E. 


9(4)V99 


1 23456 


$9(4).99 


$1234.56 


F. 


9(4)V99 


1 23456 


$9,999.99 


$1,234.56 


G. 


9(4) 


0008 




$8 


H. 


9(4)V9 


12345 


9(4) 


1234 


1. 


9(4)V9 


12345 


9(4).99 


1234.50 


J. 


9(4) 


0012 


$ZZZ9 


$ 12 



NOTES: 1) DECIMAL ALIGNMENT IS ALWAYS 

MAINTAINED IN ANY NUMERIC MOVE. 

2) MULTIPLE DOLLAR SIGNS PROVIDE A 
FLOATING DOLLAR SIGN. 

3) A "Z" SUPPRESSES ZERO AND CAN PROVIDE 
A FIXED DOLLAR SIGN. 
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STOP RUN STATEMENT 

STOP RUN TERMINATES PROGRAM EXECUTION. 

CONTROL IS RETURNED TO TRSDOS. 

AT LEAST ONE STOP RUN MUST APPEAR IN EVERY 
COBOL PROGRAM. 

STOP RUN DOES NOT HAVE TO BE THE LAST LINE IN 
THE PROGRAM. 
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PAYROLL PROBLEM 

DEVELOP A COBOL PROGRAM TO PROCESS A FILE OF 
EMPLOYEE RECORDS AND PRODUCE A PAYROLL 
REPORT. INCOMING RECORDS CONTAIN THE 
FOLLOWING FIELDS: NAME, REGULAR HOURS WORKED, 
OVERTIME HOURS WORKED, AND HOURLY RATE. YOUR 
PROGRAM IS TO ACCOMPLISH ALL OF THE FOLLOWING: 

1) PRINT AN APPROPRIATE HEADING LINE. 

2) CALCULATE REGULAR PAY, OVERTIME PAY, AND 
TOTAL PAY FOR EACH EMPLOYEE. 

3) MAINTAIN COMPANY TOTALS FOR THESE ITEMS 
AND PRINT AN APPROPRIATE TOTAL LINE AT THE 
END OF PROCESSING. 
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FUNCTIONAL ORGANIZATION 





PREPARE-PAYROLL 
































WRITE-HEADING- 
LINE 




PROCESS-RECORDS 




WRITE-COMPANY- 
TOTAL 


































UPDATE-COMPANY- 
TOTALS 




WRITE-DETAIL- 
LINE 





NOTE: 

THE BOXES IN A HIERARCHY CHART CORRESPOND 

ONE-TO-ONE WITH THE PARAGRAPHS IN A PROGRAM. 
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PAYROLL PROGRAM 



000100 
000110 

000 1 20 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

0002 1 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 

000750 

000760 

000770 

000780 

000790 

000800 

000810 

000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 



IDENTIFICATION DIVISION. 
PROGRAM-ID. PAYROLL. 
AUTHOR. R GRAUER. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT |" PAYROLL/DAT~ 
SELECT PRINT-FILE 
ASSIGN TO 



PRINT |" PAYROLL/TXT" 



DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 
EMPLOYEE-RECORD. 
05 EMP-NAME. 



01 



nput File as it exists on disk 



Output File as it exists on disk 



-Only elementary items have picture clause 




10 
10 



EMP-LAST-NAME 
EMP- FIRST-NAME 



PIC X( 15) . 
PIC X< 10). 



05 



05 
05 



EMP-HOURS-WORKED. 
10 EMP-REG-HOURS 
10 EMP-OVERTIME-HOURS 



lEMP-RATE 



FILLER 



PIC 99. 
PIC 99, 
PIC 99V99. | - 



PIC X(47), 



-Implied decimal point 



FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 



IRFCORD CONTAINS 132 CHARACTERS] 



01 



DATA RECORD 
PRINT-LINE 



IS PRINT-LINE. 



WORKING-STORAGE SECTION. 
77 WS-DATA-REMAINS-SWITCH 



PIC X( 132), 



PIC X(3) 



-A printer typically contains 
132 print positions 



VALUE SPACES. 



01 



01 



IND-COMPUTATIONS. 
05 IND-REGULAR-PAY 
05 IND-OVERTIME-PAY 
05 I ND- GROSS-PAY 

COMPANY- TOTALS. 



PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9(4)V99. 



-Company totals are initialized to zero 



05 CO-REGULAR-PAY 
05 CO-OVERT I ME -PAY 
05 CO-GROSS-PAY 



PIC 9(6)V99 VALUE ZEROS. 
PIC 9(6)V99 VALUE ZEROS. 
PIC 9(6)V99 VALUE ZEROS. 



01 HEADING-LINE. 



05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 



PIC X<8) VALUE SPACES. 

PIC X(4) VALUE "NAME". 

PIC X(9) VALUE SPACES. 

PIC X(4> VALUE "RATE". 

PIC X(4) VALUE SPACES. 

PIC X(9) VALUE "REG HOURS". 

PIC X<4) VALUE SPACES. 

PIC X(9) VALUE "O/T HOURS". 

PIC X(4) VALUE SPACES. 

PIC X(7) VALUE "REG PAY". 

PIC X<4) VALUE SPACES. 

PIC X(7) VALUE "O/T PAY". 

PIC X(4) VALUE SPACES. 

PIC X(9) VALUE "GROSS PAY". 

PIC X(46) VALUE SPACES. 



01 



01 



DASHED-LINE. 

05 ROW-OF-DASHES 

05 FILLER 

DETAIL-LINE. 

05 FILLER 

05 DET-LAST-NAME 

05 FILLER 



-Heading line established through VALUE clauses 



PIC X(90) 
PIC X(42) 



PIC X(2). 
PIC X(15). 
PIC X(2). 



[05 DET-RATE 



PIC ***.99. 



05 FILLER 

05 DET-REG-HOURS 

05 FILLER 



PIC X(8). 
PIC Z9. 
PIC X(10). 



VALUE ALL "-", 
VALUE SPACES. 



-Edit picture 
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000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
00 1 020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
00 1510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
00 1 600 
00 1610 
00 1 620 
001630 
001640 
001650 
001660 
001670 
00 1 680 



PAYROLL PROGRAM (CONTINUED) 



05 DET-OVERTIME-HOURS 

05 FILLER 

05 DET-REGULAR-PAY 

05 FILLER 

05 DET-OVERTIME-PAY 

05 FILLER 

05 DET-GROSS-PAY 

05 FILLER 

01 TOTAL-LINE. 

05 FILLER 

05 FILLER 

05 FILLER 

05 TOTAL-REGULAR-PAY 

05 FILLER 

05 TOTAL-OVERTIME-PAY 

05 FILLER 

05 TOTAL-GROSS-PAY 

05 FILLER 



PROCEDURE DIVISION. 
PREPARE-PAYROLL. 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 

PERFORM WRITE-HEADING-LINE. 




PIC Z9. 

PIC X(6). 

PIC *Z,ZZ9.99. 

PIC X<3). 

PIC *Z, ZZ9.99. 

PIC X ( 2 ) . 

PIC $Z, ZZ9.99. 

PIC X(47). 



PIC X(6) VALUE 
PIC X<6) VALUE 
PIC X(41) VA LUE 
PIC $Z,ZZ9.99.| 



SPACES. 

"TOTALS" 

SPACES. 



PIC X<3) 



PIC $Z.ZZ9.99.| 
PIC X<2) VALUE 
PIC *Z,ZZ9.99. 
PIC X(47) VALUE 



VALUE SPACES. 



SPACES. 



SPACES. 



Use of editing 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 



PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAINS-SWITCH = "NO" 
PERFORM WRITE-COMPANY-TOTALS. 
CLOSE EMPLOYEE-FILE 

PRINT-FILE. 
STOP RUN. 

WRITE-HEADING-LINE. 

WRI TE PRINT-LINE FROM HEAD ING-LINE 

IAFTER ADVANCING PAGE.I 

WRITE PRINT-LINE FROM DASHED-LINE 
AFTER ADVANCING 1 LINE. 

PROCESS-RECORDS. 



Initial read 



■ Causes output to begin on a new page 
-Arithmetic Statements 



MULTIPLY EMP-REG- HOURS EY EMP-RATE GIVING IND-REGULAR-PAY. 
COMPUTE IND-OVERTIME-PAY 

= EMP-OVERTIME-HOURS * EMP-RATE #1.5. 
ADD IND-REGULAR-PAY IND-OVERTIME-PAY GIVING IND-GROSS-PAY. 



PERFORM UPDATE-COMPANY-TOTALS. 
PERFORM WR I TE-DETA I L-L I NE . 



-Last statement of performed 
routine is another read 



READ EMPLOYEE-FILE 

AT END MOVE "NO" 



TO WS-DATA-REMA I NS-SW I TCH . 



UPDATE-COMPANY-TOTALS. 



ADD IND-REGULAR-PAY TO CO-REGULAR-PAY. 
ADD IND-OVERTIME-PAY TO CO-OVERTIME-PAY. 
ADD IND-GROSS-PAY TO CO-GROSS-PAY. 



Increments company totals 



WRITE-DETAIL-LINE. 



MOVE SPACES TO DETAIL-LINE. 
MOVE EMP- LAST-NAME TO DET-LAST-NAME. 
MOVE EMP-RATE TO DET-RATE. 
MOVE EMP-RE6-H0URS TO DET-RE6-HOURS. 
MOVE EMP-OVERTIME-HOURS TO DET-OVERTIME-HOURS. 
MOVE IND-REGULAR-PAY TO DET-REGULAR-PAY. 
MOVE IND-OVERTIME-PAY TO DET-OVERTIME-PAY. 
MOVE IND-GROSS-PAY TO DET-GROSS-PAY. 
WRITE PRINT-LINE FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES. 



■Builds detail line 



WRITE-COMPANY-TOTALS. 

WRITE PRINT-LINE FROM DASHED-LINE 

AFTER ADVANCING 1 LINE. 
MOVE CO-REGULAR-PAY TO TOTAL-REGULAR-PAY. 
MOVE CO-OVERTIME-PAY TO TOTAL-OVERTIME-PAY. 
MOVE CO-GROSS-PAY TO TOTAL-GROSS-PAY. 
MOVE TOTAL-LINE TO PRINT-LINE. 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 
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TRUE/FALSE REVIEW 

1) PROGRAM-ID IS THE ONLY REQUIRED PARAGRAPH 
IN THE IDENTIFICATION DIVISION. 

2) BOTH GIVING AND TO MAY APPEAR IN THE SAME 
ADD STATEMENT. 

3) EVERY ELEMENTARY ITEM HAS A PICTURE CLAUSE. 

4) A DATA NAME AT THE 10 LEVEL MAY OR MAY NOT 
HAVE A PICTURE CLAUSE. 

5) PIC 9(3) AND PICTURE IS 999 ARE EQUIVALENT 
ENTRIES. 

6) THE IF STATEMENT MUST CONTAIN AN ELSE 
CLAUSE. 

7) ONLY ONE STATEMENT IS EXECUTED WHEN AN IF 
STATEMENT IS TRUE. 

8) STOP RUN IS THE LAST LINE OF EVERY COBOL 
PROGRAM. 

9) A FILENAME MAY NOT APPEAR IN MORE THAN TWO 
STATEMENTS IN THE SAME PROGRAM. 

10) IN A COMPUTE STATEMENT WITH NO 

PARENTHESES, MULTIPLICATION IS ALWAYS DONE 
BEFORE ADDITION. 
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CHAPTER FIVE: DEBUGGING 

COMPILATION ERRORS 

COMMON COMPILATION ERRORS 
OMITTED PERIOD OR HYPHEN 
INADVERTENT USE OF RESERVED WORD 
MISSPELLED RESERVED WORD 
CONFLICTING RECORD CONTAINS CLAUSE 
CONFLICTING PICTURE AND VALUE CLAUSE 
NON-UNIQUE DATA NAMES 
READING A RECORD OR WRITING A FILE 
INVALID PICTURE FOR NUMERIC ENTRY 
EXCEEDING COLUMN 72 

OMITTED SPACE BEFORE OR AFTER ARITHMETIC 
OPERATOR 

EXECUTION ERRORS 
COMMON EXECUTION ERRORS 

MISSING OR EXTRA PERIOD 

MISSING OR EXTRA PARENTHESES 

IMPROPER USE OF PRIMING READ 

FAILURE TO INITIALIZE A COUNTER 

RECEIVING FIELD TOO SMALL TO ACCOMMODATE 
SENDING FIELD 

INCONSISTENT DECIMAL IN CALCULATED AND 
PRINTED FIELDS 
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COMPILATION ERRORS: 

• OCCUR DURING THE TRANSLATION OF COBOL TO 
MACHINE LANGUAGE 

• ARE THE RESULT OF AN ERROR IN SYNTAX: FOR 
EXAMPLE, A MISSPELLED WORD, A MISSING PERIOD, 
AND SO ON 

AN ERROR IN ONE STATEMENT CAN CAUSE ERRORS IN 
OTHER SEEMINGLY CORRECT STATEMENTS. FOR 
EXAMPLE, MISSPELLING "ENVIRONMENT" CAUSES 
SELECT STATEMENTS TO BE IN ERROR, WHICH IN TURN 
INVALIDATES FD'S, RESULTING IN INVALID PROCEDURE 
REFERENCES TO ALL FILENAMES AND ASSOCIATED 
DATA NAMES. 

ALL COMPILATION ERRORS SHOULD BE REMOVED 
BEFORE EXECUTION IS ATTEMPTED. 
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MOST COMPILATION ERRORS ARE NOTED DIRECTLY 
UNDER THE STATEMENT IN QUESTION. 

THESE DIAGNOSTIC MESSAGES USUALLY OCCUR IN 
PAIRS — THE FIRST INDICATES THE NATURE OF THE 
PROBLEM; THE SECOND SHOWS THE POINT WHERE 
COMPILATION CONTINUED. FOR EXAMPLE: 

05 CO REG-PAY PIC 9(6) VALUE ZERO. 

$ $ 

****1) SYNTAX 
****2) SCAN RESUME 
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OTHER COMPILATION ERRORS APPEAR AT THE END OF 
THE LISTING. FOR EXAMPLE: 



PERFORM WRITE-COMPANY-TOTAU 




(Inconsistent) 



WRITE-COMPANY-TOTALSL 



THE COMPILER CANNOT DETECT AN ILLEGAL PERFORM 
UNTIL THE END OF THE PROGRAM, WHEN THE ERROR 
IS LISTED: 

ILLEGAL PERFORM * E * E * E WRITE-COMPANY-TOTAL 
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COMMON COMPILATION ERRORS: 

OMITTED PERIOD OR HYPHEN 
INADVERTENT USE OF RESERVED WORD 
MISSPELLED RESERVED WORD 
CONFLICTING RECORD CONTAINS CLAUSE 
CONFLICTING PICTURE AND VALUE CLAUSE 
NON-UNIQUE DATA NAMES 
READING A RECORD OR WRITING A FILE 
INVALID PICTURE FOR NUMERIC ENTRY 
EXCEEDING COLUMN 72 

OMITTED SPACE BEFORE OR AFTER ARITHMETIC 
OPERATOR 
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OMITTED PERIOD OR HYPHEN, INADVERTENT USE OF 
RESERVED WORD, MISSPELLED RESERVED WORD 



Misspelled reserved word 




WORKING-STOWAGE SECTION. 



01 DETAIL-RECORD. 
05 FILLER 
05 




EMP NAME 



FILLER 



DATE 



FILLER 
EMP-SALARY 



Reserved word 
■Hyphen missing 



PIC X(2) 
PIC X(20). 
PIC X(2) 
PIC 9(6). 
PIC X(2) 
PIC 9(6). 



VALUE SPACES. 



VALUE SPACES. 



VALUE SPACES r 



-Period missing 
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CONFLICTING RECORD CONTAINS CLAUSE 

FD PRINT-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE. 



05 FILLER 

05 PR-NAME 

05 FILLER 

05 PR-SALARY 

05 FILLER 



PICX(10). 
PIC X(20). 
PIC X(2). 



PIC $$,$$9.99 



PIC X(90). 



9 Positions 



ALL PICTURE CLAUSES MUST SUM TO 132. THIS CAN BE 
TRICKY BECAUSE OF THE PRESENCE OF EDITING 
CHARACTERS (SAMPLE ENTRIES TOTAL 131). 

THIS ERROR APPEARS AS "FILE RECORD SIZE ERROR" 
AT END OF LISTING. 
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CONFLICTING PICTURE AND VALUE CLAUSE 

NUMERIC PICTURES REQUIRE NUMERIC VALUES; 
NON-NUMERIC PICTURES NEED NON-NUMERIC VALUES. 
MOREOVER, THE NUMBER OF CHARACTERS IN A VALUE 
CLAUSE MUST BE CONSISTENT WITH THE 
CORRESPONDING PICTURE. 

CORRECT ENTRIES 

05 NUMERIC-ENTRY PIC 9(3) VALUE 123. 

05 NON-NUMERIC-ENTRY PIC X(3) VALUE "ABC". 
05 GOOD-LENGTH PIC X(4) VALUE "WXYZ". 



INVALID ENTRIES 

05 NUMERIC-ENTRY PIC 9(3) VALUE "123". 

05 NON-NUMERIC-ENTRY PIC X(3) VALUE 123. 

05 BAD-LENGTH PIC X(3) VALUE "ABCD". 
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NON-UNIQUE DATA NAMES 



01 EMPLOYEE-RECORD. 



05 NAME 



05 ADDRES 



01 PRINT-RECO 
05 



NAME 




Duplicate name 



05 ADDRESS 

THIS PROBLEM IS NEATLY AVOIDED BY USING A 
TWO- OR THREE-CHARACTER PREFIX FOR EACH 
RECORD. (FOR EXAMPLE: EMP-NAME, EMP-ADDRESS, 
PR-NAME, PR-ADDRESS, ETC.) 



93 



READING A RECORD OR WRITING A FILE 
FD EMPLOYEE-FILE 



DATA RECORD IS EMPLOYEE-RECORD. 
FD PRINT-FILE 



DATA RECORD IS PRINT-RECORD. 
CORRECT ENTRIES: 

READ EMPLOYEE-FILE . . . 

WRITE EMPLOYEE-RECORD . . . 
INVALID ENTRIES: 

READ EMPLOYEE-RECORD . . . 

WRITE EMPLOYEE-FILE . . . 
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INVALID PICTURE FOR NUMERIC ENTRY 

05 GROSS-PAY PIC 9(4)V99. 

05 PRINT-GROSS-PAY PIC $9,999.99. 

CORRECT ENTRIES: 

COMPUTE GROSS-PAY = HOURS * RATE. 

MOVE GROSS-PAY TO PRINT-GROSS-PAY. 
INVALID ENTRY: 

COMPUTE PRINT-GROSS-PAY = HOURS * RATE. 

DATA NAMES APPEARING IN A COMPUTE STATEMENT 
MUST BE DEFINED WITH NUMERIC PICTURES. THEY 
MAY SUBSEQUENTLY BE MOVED TO EDITED FIELDS 
FOR PRINTING. 
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EXCEEDING COLUMN 72 

Column 72 

WORKING-STORAGE SECTION. 

05 TOTAL-SALARIES PIC 9(6). 

PROCEDURE DIVISION. 

ADD THIS-SALARY...TO TOTAL-SALARIES. 

$ UNDEFINED 

TOTAL-SALARI IS FLAGGED AS AN UNDEFINED DATA 
NAME BECAUSE THE COMPILER INTERPRETS ONLY 
COLUMNS 1-72. 
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OMITTED SPACE BEFORE OR AFTER 
ARITHMETIC OPERATOR 

THE ARITHMETIC OPERATORS *, /, + , AND - 
ALL REQUIRE A SPACE BEFORE AND AFTER THEM. 

CORRECT ENTRY; 

COMPUTE OVERTIME-PAY = HOURS-OVERTIME * 
HOURLY-RATE * 1.5. 

INCORRECT ENTRY 

COMPUTE OVERTIME-PAY = HOURS-OVERTIME* 
HOURLY-RATE*! .5. 
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COBOL LISTING WITH COMPILER ERRORS 



TRS-80 Model 
SOURCE FILE: 



II COBOL 
PAYCOMP 



(RM/ COBOL 1.3B) 



4/1B/B1 12.05.04 
OPTION LIST: T L=l 



PAGE 



LINE DEBUG PG/LN A. 



ID. 




3 
4 
5 
6 
7 

a 

9 

10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 

***** 

***** 

49 

50 



000100 

001 

000 1 20 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 



1) 
2) 



IDENTIFICATION DIVISION. 

PAY COM P. 
AUTHOR. R 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS- 
OBJECT-COMPUTER. TRS- 



80. 
80. 



Discussion refers to compiler 
statement numbers, 
not sequence numbers. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "PAYROLL/DAT". 
SELECT PRINT-FILE 

ASSIGN TO PRINT " PAYCOMP/TXT" . 

DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 
01 EMPLOYEE-RECORD. 

05 EMP-NAME. 

10 EMP-LAST-NAME PIC X(15). 
10 EMP-FIRST-NAME PIC X<10). 
EMP-HOURS-WORKED . 

10 EMP-REG-HOURS PIC 99. 
10 EMP-OVERTIME-HOURS PIC 99. 
EMP-RATE PIC 99V99. 

FILLER PIC X(46). 



05 



05 
05 



■Picture clauses sum to 
79, not 80; flagged on 
page 5 



FD 



01 



PRINT-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORD IS PRINT-LINE. 

PRINT-LINE PIC X(132). 



WORKING-STORAGE SECTION. 
77 WS-DATA-REMAINS-SWITCH 

01 IND-COMPUTATIONS. 

05 IND-RE6ULAR-PAY 
05 IND-OVERTIME-PAY 
05 IND-GROSS--PAY 

01 COMPANY-TOTALS. 

05 |CO REGULAR-PAY) 



PIC X(3) 



VALUE SPACES. 



PIC 
PIC 
PIC 



9<4)V99. 
9(4)V99. 
9(4)V99. 



-Hyphen missing 



9(6)V99 VALUE ZEROS. 




SYNTAX *E*E*E*E*I^E*E*E*E*E*E*E*E*E*E*2<*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*£*E*E 
SCAN RF^UMF *W*W^*W*W*W*W*W*W*W*W*W*W/W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

000580^ 05 OO-OVERTIME-PAY / PIC 9 < 6 ) V99 VALUE ZEROS. 

000590 05 /CO-GROSS-PAY / PIC 9(6)V99 VALUE ZEROS. 



-2nd $ indicates recovery point 
■ 1st $ indicates where error occurred 
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TRS-80 Model II COBOl 
SOURCE FILE: PAYCOMP; 




LISTING (CONTINUED) 

column 8 



column 12 

(Rtf/ COBOL 1.3B) 



column 73 



4/18/81 12.05.04 
OPTION LIST: T L=l 



PAGE 



LINE DEBUG PG/LN A...B. 




51 
52 
53 
54 

***** 
***** 
55 
56 
57 
58 

***** 
59 

***** 
***** 
***** 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 



1 ) 



1 ) 
1) 
2) 



000600 
000610 
000620 
000630 



01 



HEADING-LINE. 
05 FILLER 
05 FILLER 



Opening quote is missing 



PIC 
PIC 



X(8) 
X(4) 



VALUE 
I VALUE 



SPACES- 
NAME" . I 



LITERAL VALUE *E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 



000640 
000650 
000660 
000670 



05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 



PIC 
PIC 
PIC 
PIC 



X(9) 
X(4) 
X(4) 
X(9) 



VALUE SPACES. 
VALUE "RATE". 
VALUE SPACES. 

VALUE "REG HOURSl" 



*E*E*E*E*E 



SYNTAX *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
000680 05 FILLER PIC X(4) VALUE SPACES, 

* S 

SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*UI*W*W*W*W*W*W*W*UI*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
DOUBLE DECLARATION *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*£*E*E*E*E*E*E*E*E*E*E 

SCAN RESUME *w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*y*(j*w*w*w*w*w*w*ui*w*w*w*w 



000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 



01 



05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 




DASHED-LINE. 

05 ROW-OF-DASHES 

05 FILLER 



01 DETAIL-LINE. 

05 FILLER 

05 DET-LAST-NAME 

05 FILLER 

05 DET-RATE 

05 FILLER 

05 DET-REG-HOURS 

05 FILLER 

05 DET-OVERTIME-HOURS 

05 FILLER 

05 DET-REGULAR-PAY 

05 FILLER 

05 DET-OVERTIME-PAY 

05 FILLER 

05 DET-GROSS-PAY 

05 FILLER 

01 TOTAL-LINE. 



05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 

TOTAL-REGULAR- 
FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PI 
*IC 
PIC 



X(9) 
X(4) 
X(7) 
X( 

7) 
X(4) 
X(9) 
X(46) 



_UE 
'VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



"O/T HOURS" 

SPACES. 

" REG PAY " . 

SPACES. 

"O/T PAY". 

SPACES. 

"GROSS PAY" 

SPACES. 



Ending quote is in column 73 and ignored 
all "--. by compiler 

SPACES. 



PIC- 
RIC 



X(90) 
X ( 42 ) 



VALUE 
VALUE 



PAY 




PICTURE and VALUE 
clauses are inconsistent 



SPACES. 



'TOTALS" ■! 



VALUE SPACES- 



VALUE SPACES. 
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LISTING (CONTINUED) 



TRS-80 Model II COBOL (RM/COBOL 1 . 3B ) 4/18/81 12.05.04 PAGE 3 

SOURCE FILE: PAYCOMP OPTION LIST: T L=l 

LINE DEBUG PG/LN A. . .B ID. 



96 001050 05 TOTAL-OVERTIME-PAY PIC *Z,ZZ9.99. 

97 001060 05 FILLER PIC X<2> VALUE SPACES. 

98 001070 05 TOTAL-GROSS-PAY PIC $Z,ZZ9.99. 

99 001080 05 FILLER PIC X ! 47 ) VALUE SPACES. 

100 001090 

101 001100 PROCED URE DIVISION. 

102 >0000 BBino fsTARTl Reserved word used incorrectly 

$ 

***** d RESERVED WORD CONFLICT *E*E*E*E*E*-E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

103 001120 OPEN INPUT EMPLOYEE-FILE 

* 
***** j ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W^ 

104 001130 OUTPUT PRINT-FILE. 

105 >000C 001140 PERFORM WRITE-HEADIN6-L INE . 

106 >000E 001150 READ EMPLOYEE-FILE 

107 001160 AT END MOVE "NO" TO WS--DATA--REMAIN5-9WITCH. 

108 >0018 001170 PERFORM PROCESS-RECORDS 

109 001180 UNT I L WS-DATA-REMA I NS-SWI TCH = "NO". 

110 >0022 001190 IPERFORM WR I TE-COMPANY-TOTAL ■ | 

111 >0024 001200 CLOSE EMPLOYEE-FILE ^\r-i A „* K~t+„ f ~„„« C 

U2 001210 print-file. ^ Flagged at bottom of page 5 

113 >0030 001220 STOP RUN. 

U4 001230 -—Should be WRITE PRINT-LINE 

115 >0032 001240 WR I TE-HEAD I NS-L I NE ■ _ _ — ■ ■ 

116 >0032 001250 |WRITE PRINT-FILE | FROM HEADING-LINE 

* 
***** d REFERENCE INVALID *E*E*E#E*E«E*E*E»E*E*E*E*E*E*E*E*E*E*E»E*E*E#E*E*E*E*E*E*E*E*E 

117 001260 AFTER ADVANCING PAGE. 

* 
***** i ) SCAN RESUME *w*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

118 >0034 001270 WRITE PRINT-LINE FROM DASHED-LINE 

119 001280 AFTER ADVANCING 1 LINE. 

120 001290 

121 >0044 001300 PROCESS-RECORDS. 

122 >0044 001310 MULTIPLY EMP-REG-HOURS BY EMP-RATE GIVING I ND-REGULAR-PAY. 

123 ">004A 001320 COMPUTE IND-OVERTIME-PAY 

1?4 001330 = EMP-OVERTIME-HOURS» EMP-RATE * 1.5. 

125 >0052 001340 ADD IND-REGULAR-PAY IND-OVERTIME-PAY GIVING IND-GROSS-PAY . 

126 001350 

127 >0058 001360 PERFORM UPDATE-COMPANY-TOTALS. 

128 001370 

129 >005A 001380 PERFORM WRI TE-DETAIL-LINE. 

130 001390 



131 



Base 001.400 Iread employee-record] Should be READ EMPLOYEE-FILE 



***** j) FIL E NAME REWIRED *E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

132 001410 AT END MOVE NO TO WS-DATA-REMAINS-3WITCH. 

* * * 

***** i) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*WkW*W*W*W*W*W*W»W*W*W*W*W*W*W»W»W*U*W«-W*W*W*W 
***** 2 ) RESERVED WORD CONFLICT *E*E*E*E*E»E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
***** 3) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W»W*W*W*W*W*W*W*W*W*W*W*W*W*W 

133 001420 

134 >0062 001430 UPDATE-COMPANY-TOTALS. 
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LISTING (CONTINUED) 

Error will disappear with correction to COBOL line 48 



TRS-80 Model 
SOURCE FILE: 



1 1 COBOL ( RM/ COBOL 1 . 3B ) 
PAYCOMP 



LINE DEBUG PG/LN 



135 

***** 

***** 

136 

137 

***** 
***** 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 

***** 
***** 

155 

156 

157 

158 

159 

160 



50062 001440 

1) IDENTIFIER 

2) SCAN RESUME 
>0064 001450 
J006A 001460 




4/18/81 12.05.04 PAGE 
OPTION LIST: T L=l 



ADD IND-REGULAR-PAY TO I CO-REGULAR- PAY. I 



1) IDENTIFIER 

2) SCAN RESUME 

001470 
>006E 001480 WRITE-DETAIL-LINE. 



* * 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

ADD IND-OVERTI ME-PAY TO CO-OVERTIME-PAY. 

ADD IIND-GROSSI TO CO-GROSS-PAY. 
i \^ * 

*E*E*E*E*E*E*E*E*P*F i *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
*W*W*W*W*W*W*W*W*W*W*>M^*W*W*U*W*W*U*W*W*W*W*y*W*W*W*W*W*W*W*W 



^Should be IND-GROSS-PAY 



>006E 001490 
>0072 001500 
>0076 001510 
>007A 001520 
>007E 001530 
>0082 001540 
>0086 001550 
>008A 001560 
>008E 001570 

001580 

001590 
>009E 001600 WRITE-COMPANY-TOTALS 



MOVE SPACES TO DETAIL-LINE. 
MOVE EMP-L AST-NAME TO DET -LAST-NAME. 
MOVE EMP-RATE TO DET-RATE. 
MOVE EMP-REG-HOURS TO DET-REG -HOURS. 
MOVE EMP-OVERTIME-HOURS TO DET-OVERT IME-HOURB. 
MOVE IND-REGULAR-PAY TO DET -REGULAR-PAY. 
MOVE IND-OVERTIME-PAY TO DET-OVERTIME- PAY. 
MOVE IND-GROSS-PAY TO DET-GROSS-PAY. 
WRITE PRINT-LINE FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES. 



>009E 001610 

001620 

>00AC 001630 

1) IDENTIFIER 

2) SCAN RESUME 
:00AE 001640 
>00B2 001650 
■00B6 001660 
>00BA 001670 

001680 




Error will disappear with correction 
to COBOL line 48 



ZZZZZZ END PROGRAM. 



WRITE PRINT-LINE FROM DASffED-LINE 

AFTER ADVANCING > <INE. 
MOVE |C0-RE6ULAR~PAY| T0 TOTAL-REGULAR-PAY. 
* $ 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

MOVE CO-OVERTIME- PAY TO TOTAL-OVERTIME-PAY. 
MOVE CO-GROSS-PAY TO TOTAL-GROSS -PAY. 
MOVE TOTAL-LINE TO PRINT-LINE. 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 



*** END OF FILE *** 
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LISTING (CONTINUED) 



TRS-80 Model II COBOL (RM/ COBOL 1 . 3B > 
SOURCE FILE: PAYCOMP 

ADDRESS SIZE DEBUG ORDER TYPE 



4/18/81 12.05.04 PAGE 
OPTION LIST: T L=l 



NAM 



Indentation reflects group vs elementary items 












FILE 




EMPLOYEE-FILE 




>0000 


f79l 


GRP 





GROUP 




EMPLOYEE-RECORD 




>0000 


/25 


GRP 





GROUP 




EMP-NAME 




>0000 


/ 15 


ANS 





ALPHANUMERIC 


EMP-LAST-NAME 




>000F 


/ 10 


ANS 





ALPHANUMERIC 


EMP-FIRST-NAME 




>0019 


/ 4 


GRP 





GROUP 




EMP-HOURS-WORKED 




>0019 


/ 2 


NSU 





NUMERIC 


UNSIGNED 


EMP-REG-HOURS 




>001B i 


1 2 


NSU 





NUMERIC 


UNSIGNED 


EMP-OVERT I ME-HOURS 




5001 D/ 


4 NSU NUMERIC UNSIGNED 

-Record size is in conflict with line 21 


EMP-RATE 



















FILE 




PRINT-FILE 


50054 


132 


ANS 





ALPHANUMERIC 


PRINT-LINE 


>00E0 


3 


ANS 





ALPHANUMERIC 


WS-DAT A-REMA I NS-SW I T CH 


>00E4 


18 


GRP 





GROUP 




IND-C0MPUTATI0N3 


>00E4 


6 


N9U 





NUMERIC 


UNSIGNED 


IND-REGULAR-PAY 


>00EA 


b 


NSU 





NUMERIC 


UNSIGNED 


IND-OVERTIME-PAY 


>00F0 
>00F6 


6 
24 


NSU 
GRP 







NUMERIC 
GROUP 


UNSIGNED 


IND-GROSS-PAY rv>r,etn , D H oe o 

company-totals__^ — —~ — oonsirueu ab a 


>00F6 


8 


NSU 





NUMERIC 


UNSIGNED 


UU— data name 


>00FE 


8 


NSU 





NUMERIC 


UNSIGNED 


CO-OVERTIME-PAY 


>0106 


8 


NSU 





NUMERIC 


UNSIGNED 


CO-GROSS-PAY 


>010E 


128 


GRP 





GROUP 




HEADING-LINE 


>018E 


132 


GRP 





GROUP 




DASHED-LINE 


>018E 


90 


ANS 





ALPHANUMERIC 


ROW-OF-DASHES 


>0212 


132 


GRP 





GROUP 




DETAIL-LINE 


>0214 


15 


ANS 





ALPHANUMERIC 


DET-LAST-NAME 


>0225 


6 


NSE 





NUMERIC 


EDITED 


DET-RATE 


>0233 


2 


NSE 





NUMERIC 


EDITED 


DET-REG-HOURS 


>023F 


2 


NSE 





NUMERIC 


EDITED 


DET- OVERTIME-HOURS 


>0247 


9 


NSE 





NUMERIC 


EDITED 


DET-REGULAR-PAY 


>0253 


9 


NSE 





NUMERIC 


EDITED 


DET-OVERTIME-PAY 


>025E 


9 


NSE 





NUMERIC 


EDITED 


DET-GROSS-PAY 


>0296 


131 


GRP 





GROUP 




TOTAL- LINE 


>02CA 


9 


NSE 





NUMERIC 


EDITED 


TOTAL-REGULAR-PAY 


>02D6 


9 


NSE 





NUMERIC 


EDITED 


TOT AL-OVE RT I ME-PAY 


>02E1 


9 


NSE 





NUMERIC 


EDITED 


TOTAL-GROSS-PAY 


^^-Additional error 
-^"^ messages 


ILLEGAL 


PERFORM *E«E*E*E* 


E*E*E#E*E*E*E*E»E»E*E*E 


WRITE-COMPANY-TOTAL 


FILE RECORD SIZE ERROR »E*E*E*E*E* 


E*E»E»E*E*E*E 


EMPLOYEE-FILE 


VALUE ERROR *E*E*E*E*E*E*E*E*E*E*E*E*E*E»E»E*E*E 


TOTAL-LINE 
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LISTING (CONTINUED) 



TRS-80 Model II COBOL. (RM/COBOL 1 . 3B ) 4/18/81 12.05.04 PAGE 

SOURCE FILE: PAYCOMP OPTION LIST: T L=l 

ADDRESS SIZE DEBUG ORDER TYPE NAM 



RE/ 


iD ONLY BYTE 


SIZE = 


>0200 


READ/WRITE BYTE SIZE = 


>0398 


OVERLAY SEGMENT BYTE SIZE = 


>0000 


TOTAL BYTE SIZE 


= 


X3598 




14 ERRORS 
11 WARNINGS 
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Compilation summary 
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EXECUTION ERRORS: 

THE COMPUTER WAS ABLE TO EXECUTE THE ENTIRE 
PROGRAM, BUT THE CALCULATED RESULTS ARE 
DIFFERENT FROM WHAT THE PROGRAMMER INTENDED, 

OR 

THE COMPUTER IS UNABLE TO EXECUTE A PARTICULAR 
INSTRUCTION AND COMES TO A PREMATURE END OF 
JOB: FOR EXAMPLE, TRYING TO READ A FILE THAT ISN'T 
THERE. 



104 



COMMON EXECUTION ERRORS: 

MISSING OR EXTRA PERIOD 

MISSING OR EXTRA PARENTHESES 

IMPROPER USE OF PRIMING READ 

FAILURE TO INITIALIZE A COUNTER 

RECEIVING FIELD TOO SMALL TO ACCOMMODATE 
SENDING FIELD 

INCONSISTENT DECIMAL IN CALCULATED AND 
PRINTED FIELDS 
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MISSING OR EXTRA PERIOD 

THE PERIOD HAS A SIGNIFICANT EFFECT. CONSIDER 
THE DIFFERENCE BETWEEN 



A) 



FALSE 




TRUE 



ADD 1 TO 

NONMEMBER- 

TOTAL 



MAIL-COMPANY 



o 



No period 

IF UNION-MEMBER 

PERFORM MAIL-UNION 

ELSE 

ADD 1 TO NONMEMBER-TOTAL\ 
PERFORM MAIL-COMPANY. 



MAIL-UNION 



B) 



FALSE 




ADD 1 TO 

NONMEMBER- 

TOTAL 



TRUE 



Extra period 
IF UNION-MEMBER 

PERFORM MAIL-UNION 
ELSE 

ADD 1 TO NONMEMBER-TOTAL. 
PERFORM MAIL-COMPANY. 



MAIL-UNION 



o 



MAIL-COMPANY 
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MISSING OR EXTRA PARENTHESES: 

PARENTHESES CLARIFY, AND SOMETIMES ALTER, THE 
NORMAL HIERARCHY OF OPERATIONS: 
MULTIPLICATION OR DIVISION, ADDITION OR 
SUBTRACTION, AND LEFT TO RIGHT IF A TIE. 

THUS: 

COMPUTE X = A + B * C 
IS NOT THE SAME AS: 

COMPUTE X = (A + B) * C 
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IMPROPER USE OF PRIMING READ: 

INCORRECT: 

PERFORM PROCESS-RECORDS 
UNTIL EOF-SWITCH = "YES". 



PROCESS-RECORDS. 
READ INPUT-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 



CORRECT: 

READ INPUT-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 
PERFORM PROCESS-RECORDS 
UNTIL EOF-SWITCH = "YES". 



PROCESS-RECORDS. 



READ INPUT-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 
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FAILURE TO INITIALIZE A COUNTER 

COUNTERS CAN BE INITIALIZED IN A VALUE 
CLAUSE OR WITH A MOVE STATEMENT. 

WHEN A COUNTER IS NOT PROPERLY INITIALIZED, 
THE PROGRAMMER CANNOT BE SURE OF ITS 
INITIAL VALUE. 

FAILURE TO INITIALIZE A COUNTER CAN CAUSE 
THE COUNTER TO CONTAIN AN UNEXPECTED 
VALUE. 
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RECEIVING FIELD TOO SMALL TO ACCOMMODATE 
SENDING FIELD: 

05 TOTAL-GROSS-PAY PIC 9(5). 

05 PRINT-TOTAL-PAY PIC $$,$$9- 

MOVE TOTAL-GROSS-PAY TO PRINT-TOTAL-PAY 

TOTAL-GROSS-PAY CAN CONTAIN NUMBERS AS LARGE 
AS 99,999. PRINT-TOTAL-PAY CANNOT PRINT ANYTHING 
LARGER THAN $9,999. 

IN AN EXTREME CASE, IF TOTAL-GROSS- PAY HAD A 
VALUE OF 10,000, PRINT-TOTAL-PAY WOULD APPEAR AS 
$0. 
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INCONSISTENT DECIMAL IN CALCULATED AND PRINTED 
FIELDS: 

05 GROSS-PAY PIC 9(4). 

05 PRINT-GROSS-PAY PIC $9,999.99. 



COMPUTE GROSS-PAY = HOURS * RATE. 
MOVE GROSS-PAY TO PRINT-GROSS-PAY. 

PRINT-GROSS-PAY WILL NEVER HAVE ANY CENTS 
BECAUSE GROSS-PAY WAS DEFINED WITHOUT A 
DECIMAL POINT. 
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TRUE/FALSE REVIEW 



1) DATA NAMES MAY CONTAIN BLANKS. 

2) IF A PROGRAM COMPILES CORRECTLY, IT MUST 
EXECUTE CORRECTLY. 

3) IN COBOL, THE READ STATEMENT REQUIRES A FILE 
NAME. 

4) COMPILATION STOPS AS SOON AS ONE ERROR IS 
FOUND. 

5) ALL COMPILATION ERROR MESSAGES APPEAR 
DIRECTLY UNDER THE STATEMENT IN ERROR. 

6) AN ERROR IN ONE STATEMENT MAY CAUSE 
ERRORS IN OTHER APPARENTLY CORRECT 
STATEMENTS. 

7) IT IS IMPOSSIBLE TO EXECUTE A PROGRAM WITH 
COMPILATION ERRORS. 

8) THE COMPILER WILL FLAG ALL LOGIC ERRORS. 

9) DATA NAMES IN A COMPUTE STATEMENT MUST BE 
DEFINED WITH NUMERIC PICTURES. 

10) ONE COMPILE MAY PRODUCE FILES WITH 
EXTENSIONS OF LST AND COB. 
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CHAPTER SIX: ADVANCED FEATURES 

IF STATEMENT 

SIGNIFICANCE OF A PERIOD 
COMPOUND IF STATEMENTS 
CONDITION NAMES (88-LEVEL ENTRIES) 
NESTED IFS 

PERFORM 

PARAGRAPHS VS SECTIONS 

THRU 

VARYING/UNTIL 

DISPLAY 
ACCEPT 
READ INTO 
WRITE FROM 

ROUNDED AND SIZE ERROR OPTIONS 

DUPLICATE DATA NAMES 
QUALIFICATION 
MOVE CORRESPONDING 

INSPECT 

TABLES 

INITIALIZATION 
TABLE LOOKUPS 

CAR BILLING PROBLEM 
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IF STATEMENT 

IF condition statement-1 [ ELSE ] statement-2 

NOTES: 

1)THE CONDITION MAY BE RELATIONAL, ( =, >, 
ETC.), COMPOUND (AND, OR), OR AN 88-LEVEL 
ENTRY. 

2) EITHER STATEMENT-1 OR STATEMENT-2 MAY BE 
ANOTHER IF, GIVING RISE TO A NESTED IF. 

3) STATEMENT-1 IS TERMINATED BY A PERIOD OR 
AN ELSE. 



114 



SIGNIFICANCE OF A PERIOD 

(executed collectively or not at all) 
IFA = B ^ 

MOVE C TO D 
ADD 1 TO X 
COMPUTE Z = (2 * Y) + 3. 

IF LOCATION-CODE = 100 

ADD 1 TO LOCATION-COUNTER 
PERFORM PROCESS-LOCATION-TOTALS 

ELSE 

ADD 1 TO OUT-OF-STATE-TOTALS 
PERFORM INVALID-LOCATION-ROUTINE 
PERFORM WRITE-ERROR-MESSAGE. 

•PERFORM READ-NEXT-RECORD. 



(executed regardless of location-code) 
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COMPOUND IF STATEMENTS 

IF A > B OR C = D AND E = F . . . 

THE STATEMENT IS TRUE IF: 

1)A>B 
OR 2) C = D AND E = F 

THIS IS BECAUSE A HIERARCHY OF OPERATIONS 
EVALUATES AND BEFORE OR. HOWEVER, 
PARENTHESES CAN: 

1) CLARIFY: IF A > B OR (C = D AND E = F). . . 
OR 2) ALTER: IF (A > B OR C = D) AND E = F . . . 

THE NORMAL SEQUENCE OF LOGICAL OPERATIONS: 

1. ARITHMETIC EXPRESSIONS 

2. RELATIONAL OPERATORS 

3. NOT CONDITION 

4. AND 

5. OR 
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CONDITION NAMES 


(88 LEVEL ENTRIES) 


YEAR-CODE 


PIC 9. 


88 FRESHMAN 


VALUE 1. 


88 SOPHOMORE 


VALUE 2. 


88 JUNIOR 


VALUE 3. 


88 SENIOR 


VALUE 4. 


88 UPPERCLASSMAN 


VALUES ARE 3, 4. 


88 VALID-CODES 


VALUES ARE 1 THROUGH 4 



EQUIVALENT ENTRIES: 

IF FRESHMAN . . . 

IF YEAR-CODE = 1 . . . 

IF UPPERCLASSMAN . . . 

IF YEAR-CODE = 3 OR YEAR-CODE = 4 . 

IF VALID-CODES . . . 

IF YEAR-CODE > AND YEAR-CODE < 5 
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NESTED IFS 



{statement - 1 
NEXT SENTENCE 



Pl C r ] state me nt-2 
^=^ \ NEXT SENTENCE 



A NESTED IF IS DEFINED AS TWO OR MORE IFS WITHIN 
A SENTENCE. IT RESULTS WHEN EITHER STATEMENT-1 
OR STATEMENT-2 IS ITSELF ANOTHER IF STATEMENT. 

THE ELSE CLAUSE IS ASSOCIATED WITH THE CLOSEST 
PREVIOUS UNPAIRED IF. NESTED IFS SHOULD ALWAYS 
BE INDENTED IN A MANNER CONSISTENT WITH 
COMPILER INTERPRETATION. THIS IS NOT A COBOL 
REQUIREMENT PER SE, BUT RATHER A 
CHARACTERISTIC OF GOOD PROGRAMS. 

CONSIDER . . . 
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NESTED IF 



LOCATION\ YES 
NEW YORK 
? 




YES 



ADD 1 TO 

NOT- 
QUALIFIED 



o 



o 



-M H- 



ADD 1 TO 
QUALIFIED- 
EMPLOYEES 



IF LOCATION = "NEW YORK" 
IF SALARY > 10000 

ADD 1 TO QUALIFIED-EMPLOYEES 
ELSE 

ADD 1 TO NOT-QUALIFIED. 
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NESTED IF 



ADD 1 TO Z 



NO 






YES 



ADD 1 TO Y 



O 



YES 



ADD 1 TO X 



IFA>B 

ADD 1 TO X 
ELSE 

IFOD 

ADD 1 TO Y 
ELSE 

ADD 1 TO Z. 
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PERFORM 



1) PERFORM procedure-name-1 [ THRU procedure-name-2] 



2) PERFORM procedure-name-1 [ THRU procedure-name-2] 

identifier 



integer 



TIMES 



3) PERFORM procedure-name-1 [ THRU procedure-name-2] 

UNTIL condition 



4) PERFORM procedure-name-1 [ THRU procedure-name-2] 

' literal-2 



VARYING identifier-1 FROM 



identifier-2 



BY 



f literal-3 
identifier-3 



UNTIL condition 
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THE PROCEDURE MAY BE EITHER A SECTION OR A 
PARAGRAPH. 

A PARAGRAPH CONTAINS ONE OR MORE SENTENCES 
AND ENDS WHEN THE NEXT PARAGRAPH BEGINS. 

A SECTION CONTAINS ONE OR MORE PARAGRAPHS 
AND ENDS WHEN THE NEXT SECTION BEGINS. 

THE THRU CLAUSE IS OPTIONAL, AND EXPLICITLY 
DELINEATES THE RANGE OF THE PERFORM. THUS, ALL 
FORMS OF PERFORM CAN INVOKE MORE THAN ONE 
PARAGRAPH. 

ANY OF THREE OPTIONS, TIMES, UNTIL, OR 
VARYING/FROM/BY/UNTIL, CAN CAUSE A PROCEDURE 
TO BE EXECUTED MANY TIMES. 
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PARAGRAPHS VERSUS SECTIONS 



MOVE ZERO TO X. 
PERFORM A. 
STOP RUN. 
A SECTION. 



ADD 1 TO X. 
FIRST-PAR. 

ADD 1 TO X. 
SECOND-PAR. 

ADD 2 TOX. 
B SECTION. 



-executed by PERFORM A above. 



VERSUS 



MOVE ZERO TO Y. 
PERFORM A. 
STOP RUN. 



ADD 1 TOY. 
FIRST-PAR. 

ADD 1 TO Y. 
SECOND-PAR. 

ADD 1 TO Y. 
B. 



-executed by PERFORM A above. 



123 



PERFORM/VARYING/UNTIL 

THE UNTIL CONDITION IS TESTED BEFORE A 
PROCEDURE IS PERFORMED. CONSEQUENTLY, IF THE 
CONDITION IS SATISFIED INITIALLY, THE PERFORM IS 
NEVER INVOKED. FOR EXAMPLE: 

MOVE "YES" TO SWITCH. 
PERFORM PROCESS-RECORDS 
UNTIL SWITCH = "YES". 

THE VARYING/UNTIL OPTION INCREMENTS, TESTS, 
THEN BRANCHES. CONSEQUENTLY, PARAGRAPH-A IS 
EXECUTED TWICE RATHER THAN THREE TIMES: 

PERFORM PARAGRAPH-A 

VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT = 3. 
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DISPLAY 

THE DISPLAY STATEMENT SENDS OUTPUT DIRECTLY 
TO THE CRT. IT AVOIDS THE NECESSITY OF AN FD AND 
ASSOCIATED RECORD FORMATS 



AN ABBREVIATED FORMAT IS: 



DISPLAY 



identifier-1 
literal-1 



LINE 



{ identifier-2 
literal-2 



POSITION 



REVERSE 



identifier-3 
literal-3 



A GIVEN DISPLAY STATEMENT MAY CONTAIN MULTIPLE 
IDENTIFIERS, LITERALS, OR ANY COMBINATION. 

EXAMPLES: 

DISPLAY "SOCIAL SECURITY NUMBER = " 
SOC-SEC-NUM. 

DISPLAY "GOOD MORNING" LINE 12 POSITION 20 
REVERSE. 
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ACCEPT 

THE ACCEPT STATEMENT TAKES INPUT FROM THE 
KEYBOARD AND TRANSFERS IT TO THE DESIGNATED 
DATA NAME, W ITHOUT THE NE CESSITY OF AN FD AND 
ASSOCIATED RECORD FORMATS. 

IT PROVIDES LINE- AND POSITION-CAPABILITY SIMILAR 
TO THE DISPLAY STATEMENT. CONSIDER: 



ACCEPT identifier- 1 
POSITION 



LINE 



| identifier-3 
I literal-2 



(identifiers) 
I literal-1 J 

REVERSE 



WHEN AN ACCEPT STATEMENT IS EXECUTED, 
PROCESSING IS SUSPENDED UNTIL THE USER 



SUPPLIES A RESPONSE AND PRESSES THE CENTER) KEY. 

THE ACCEPT STATEMENT IS OFTEN PRECEDED BY A 
DISPLAY STATEMENT TO PROMPT THE USER 

EXAMPLE: 

DISPLAY "WHAT IS YOUR NAME?" 

LINE 3 POSITION 8 REVERSE. 

ACCEPT USER-NAME. 
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DATE OF EXECUTION 

THE STATEMENT 

ACCEPT DATE-WORK-AREA FROM DATE 

OBTAINS THE DATE OF EXECUTION FROM THE 
RESERVED WORD DATE, AND STORES IT IN A 
PROGRAMMER-DEFINED DATA NAME (IN THIS CASE, 
DATE-WORK-AREA). 

THE LATTER MUST BE IN THE FORM: YYMMDD. FOR 
EXAMPLE: 

01 DATE-WORK-AREA. 

05 TODAYS-YEAR PIC 99. 

05 TODAYS-MONTH PIC 99. 

05 TODAYS-DAY PIC 99. 

THE IMPORTANCE OF A CORRECT RESPONSE TO THE 
DATE QUESTION WHEN POWERING UP THE MACHINE IS 
NOW APPARENT. 
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CALCULATION OF AGE 

COMPUTE AGE = (TODAYS-YEAR - BIRTH-YEAR) 

+ (TODAYS-MONTH - BIRTH-MONTH) / 12 

EXAMPLE 1: 

TODAYS DATE = 9/83 
BIRTH DATE = 3/77 

AGE = (83 - 77) + (9 - 3)/12 
= 6 + 6/12 
= 6 1/2 

EXAMPLE 2; 

TODAYS DATE = 4/83 
BIRTH DATE = 10/73 

AGE = (83 - 73) + (4 - 1 0)/1 2 

= 10 + (-6/12) 
= 9 1/2 
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READ INTO 

READ file-name r iNTO identifier] 

[AT END imperative-statement] 

THUS: 

READ EMPLOYEE-FILE INTO WS-AREA 

AT END MOVE "YES" TO EOF-SWITCH. 

IS EQUIVALENT TO: 

READ EMPLOYEE-FILE 

AT END MOVE "YES" TO EOF-SWITCH. 
MOVE EMPLOYEE-RECORD TO WS-AREA. 
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WRITE FROM 

WRITE record-name FROM identifier 



BEFORE ) A n\/AMoiMn (integer LINES 
AFTER ADVANCING RAGE 



THUS: 

WRITE PRINT-LINE FROM HEADING-LINE 
AFTER ADVANCING PAGE. 

IS EQUIVALENT TO: 

MOVE HEADING LINE TO PRINT-LINE. 
WRITE PRINT-LINE 

AFTER ADVANCING PAGE. 
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ROUNDED AND SIZE ERROR OPTIONS 
THE COMPLETE SYNTAX OF THE COMPUTE VERB IS; 
COMPUTE identifier-1 [ ROUNDED ] = arithmetic-expression 

[ON SIZE ERROR imperative statement] 

THE ROUNDED CLAUSE WILL ROUND RATHER THAN 
TRUNCATE THE LAST SIGNIFICANT DIGIT AFTER 
COMPUTATION. 

THE SIZE ERROR CLAUSE EXECUTES THE SPECIFIED 
STATEMENT IF THE RESULT OF THE COMPUTATION 
EXCEEDS THE LARGEST VALUE FOR IDENTIFIER-1 . 

ROUNDED AND SIZE ERROR ARE ALSO PERMITTED 
WITH ADD, SUBTRACT, MULTIPLY, AND DIVIDE. 

EXAMPLE: 

COMPUTE GROSS-PAY ROUNDED = HOURS * RATE 
ON SIZE ERROR PERFORM ERROR-ROUTINE. 
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DUPLICATE DATA NAMES 



01 



01 



INPUT-RECORD. 




05 NAME 


PIC X(25). 


05 SOC-SEC-NUM\ 


PIC 9(9). 


05 ADDRESS. 




10 STREET 


PI^X(40). 


1 CITY-STATE 


PIC X(20)^> duplicate name 


10 ZIP-CODE 


PIC&5X 


OUTPUT-RECORD. . 




04 SOC-SEC-NUM ^ 


PIC 9(9). 


04 FILLER 


PIC X(3). 


04 NAME 


PIC X(25). 


04 FILLER 


PIC X(3). 


04 ADDRESS 




08 STREET 


PIC X(38). 


08 CITY-STATE 


PICX(18). 


08 ZIP-CODE 


PIC 9(5). 
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QUALIFICATION 

• THE STATEMENT BELOW IS AMBIGUOUS: 

MOVE NAME TO PRT-FIELD. 

• QUALIFICATION SOLVES THE PROBLEM: 

MOVE NAME OF INPUT-RECORD TO PRT-FIELD. 
OR 

MOVE NAME IN INPUT-RECORD TO PRT-FIELD. 

• QUALIFICATION MAY BE REQUIRED OVER TWO 
LEVELS: 

MOVE STREET OF ADDRESS OF INPUT-RECORD TO 
NOT 

MOVE STREET OF ADDRESS TO . . . 

• QUALIFICATION MAY SKIP THE INTERMEDIATE LEVEL: 

MOVE STREET OF INPUT-RECORD TO . . . 
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MOVE CORRESPONDING 

• EQUIVALENT TO SEVERAL INDIVIDUAL MOVES. 

MOVE CORRESPONDING INPUT-RECORD TO 
PRINT-RECORD. 

IS EQUIVALENT TO: 

MOVE NAME OF INPUT-RECORD TO NAME OF 

OUTPUT-RECORD. 
MOVE SOC-SEC-NUM OF INPUT-RECORD TO 

SOC-SEC-NUM OF OUTPUT-RECORD. 
MOVE STREET OF INPUT-RECORD TO STREET OF 

OUTPUT-RECORD. 
MOVE CITY-STATE OF INPUT-RECORD TO 

CITY-STATE OF OUTPUT-RECORD. 
MOVE ZIP-CODE OF INPUT-RECORD TO ZIP-CODE 

OF OUTPUT-RECORD. 

• IN EVALUATING THE MOVE CORRESPONDING, THE 
DATA NAME ITSELF IS CRUCIAL. LEVEL NUMBER, 
PICTURE CLAUSE, OR POSITION WITHIN THE RECORD 
DO NOT MATTER. 

• CORR IS EQUIVALENT TO CORRESPONDING. 
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INSPECT 

CONVENIENT WAY OF INSERTING HYPHENS IN A 
SOCIAL SECURITY NUMBER, OR SLASHES IN A DATE. 

01 INPUT-RECORD. 



05 IN-SOC-SEC-NUM 


PIC 9(9). 


05 IN-DATE 


PIC 9(6). 


01 PRINT-RECORD. 




05 PR-SOC-SEC-NUM 


PIC 999B99B9999 


05 PR-DATE 


PIC 99B99B99. 



MOVE IN-SOC-SEC-NUM TO PR-SOC-SEC-NUM. 
INSPECT PR-SOC-SEC-NUM 
REPLACING ALL " " BY "-". 

MOVE IN-DATE TO PR-DATE. 
INSPECT PR-DATE 

REPLACING ALL " " BY "/". 
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TABLES 

TABLES ARE DEFINED WITH AN OCCURS CLAUSE IN 
THE DATA DIVISION. THE OCCURS CLAUSE MAY OCCUR 
AT EITHER THE GROUP OR ELEMENTARY LEVEL AS 
WILL BE SHOWN. 

WE WILL ALSO CONSIDER THE TABLE INITIALIZATION 
VIA REDEFINES AND VALUE CLAUSES, AND A TABLE 
LOOKUP PROCEDURE. 
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OCCURS CLAUSE WITH ELEMENTARY ITEM 



COBOL CODE: 

05 LOCATION-TABLE. 

1 LOC-CODE OCCURS 1 TIMES 
10 LOC-NAME OCCURS 10 TIMES 

STORAGE ALLOCATION: 



PIC X(3). 
PICX(12). 



LOCATION TABLE 



CODE 



CODE 
(2) 



CODE 
(10) 



NAME(1) 



NAME (2) 



NAME (10) 



VALID REFERENCES: 

LOC-CODE (1) - REFERS TO THE FIRST LOCATION 

CODE 
LOC-NAME (1) - REFERS TO THE FIRST LOCATION 

NAME 

INVALID REFERENCES: 

LOC-CODE - MISSING SUBSCRIPT 

LOCATION-TABLE (1) - LOCATION-TABLE REFERS 

TO THE 150 POSITIONS 
COLLECTIVELY AND MAY 
NOT HAVE A SUBSCRIPT 
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OCCURS CLAUSE WITH GROUP ITEM 
COBOL CODE: 

05 LOCATION-TABLE OCCURS 10 TIMES. 
10 LOC-CODE PICX(3). 

10 LOC-NAME PICX(12). 

STORAGE ALLOCATION: 



LOCATION-TABLE 


LOCATION-TABLE (1) 


LOCATION-TABLE (2) 




LOCATION-TABLE (10) 


CODE 
(1) 


NAME (1) 


CODE 
(2) 


NAME (2) 




CODE 
(10) 


NAME (10) 

































































































VALID REFERENCES: 

LOC-CODE (1) - REFERS TO THE FIRST LOCATION 

CODE 
LOC-NAME (1) - REFERS TO THE FIRST LOCATION 

NAME 
LOCATION-TABLE (1) - REFERS TO THE FIRST 

LOCATION CODE AND NAME 
COLLECTIVELY. 
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TABLE INITIALIZATION 



01 



MAv 


JOR-VALUE 








05 


FILLER 


PICX(14) 


VALUE 


"1234ACCOUNTING ". 


05 


FILLER 


PICX(14) 


VALUE 


"1400BIOLOGY 


05 


FILLER 


PICX(14) 


VALUE 


"1976CHEMISTRY ". 


05 


FILLER 


PICX(14) 


VALUE 


"2100CIVILENG 


05 


FILLER 


PICX(14) 


VALUE 


"2458E. D. P. 


05 


FILLER 


PICX(14) 


VALUE 


"3245ECONOMICS ". 


05 


FILLER 


PICX(14) 


VALUE 


"3960FINANCE 


05 


FILLER 


PICX(14) 


VALUE 


"4321 MANAGEMENT". 


05 


FILLER 


PICX(14) 


VALUE 


"4999MARKETING ". 


05 


FILLER 


PICX(14) 


VALUE 


"5400STATISTICS ". 



01 MAJOR-TABLE REDEFINES MAJOR-VALUE. 
05 MAJORS OCCURS 1 TIMES. 
10 MAJOR-CODE PIC X(4). 

10 MAJOR-NAME PICX(10). 
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TABLE INITIALIZATION 

THE OCCURS CLAUSE ALLOCATES SPACE FOR A 
TABLE. 

THE VALUE CLAUSE INITIALIZES SPECIFIC STORAGE 
LOCATIONS. 

THE REDEFINES CLAUSE ASSIGNS ANOTHER NAME TO 
A PREVIOUSLY ALLOCATED MEMORY LOCATION. IT IS 
NECESSARY BECAUSE THE SAME ENTRY CANNOT 
CONTAIN BOTH A VALUE AND AN OCCURS CLAUSE. 

-major-value 



1 2 



3I4IaIcIcIoIuInItIiInIgIiI4IoIoIb1iIo1l1oIgIy 

Code(1) Value (1) Code (2) Value (2) 



-major-value 
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TABLE LOOKUPS 

WORKING-STORAGE SECTION. 

01 TABLE-PROCESSING-ELEMENTS. 

05 WS-MAJOR-SUB PIC 9(4). 

05 WS-FOUND-MAJOR-SWITCH PIC X(3) VALUE "NO". 

PROCEDURE DIVISION. 

MOVE 1 TO WS-MAJOR-SUB. 

MOVE "NO" TO WS-FOUND-MAJOR-SWITCH. 

PERFORM 030-FIND-MAJOR 

UNTIL WS-FOUND-MAJOR-SWITCH = "YES". 

030-FIND-MAJOR. ^ensures that table size is not 

exceeded 



IF WS-MAJOR-SUB > 10 



MOVE "YES" TO WS-FOUND-MAJOR-SWITCH 
MOVE "UNKNOWN" TO HDG-MAJOR 
ELSE 

IF ST-MAJOR-CODE = MAJOR-CODE (WS-MAJOR-SUB) 

MOVE "YES" TO WS-FOUND-MAJOR-SWITCH 

MOVE MAJOR-NAME (WS-MAJOR-SUB) TO 

HDG-MAJOR 
ELSE 

ADD 1 TO WS-MAJOR-SUB. 
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CAR BILLING PROBLEM 

INPUT - INCOMING RECORDS CONTAIN THE 

FOLLOWING FIELDS: CUSTOMER NAME, 
CAR TYPE (C, I, OR F), CAR MAKE 
(BUICK, TOYOTA, ETC.), DAYS RENTED, 
AND MILES DRIVEN 

PROCESSING -1) VALIDATE CAR TYPE AND MAKE, 

REJECTING RECORDS WITH INVALID 
FIELDS 

2) CALCULATE THE CUSTOMER BILL AS A 
FUNCTION OF CAR TYPE, DAYS 
RENTED, AND MILES DRIVEN: 

COMPACT - $11 /DAY, 120/MILE 

INTERMEDIATE - $12/DAY, 140/MILE 
FULL SIZE - $1 3/DAY, 1 60/MILE 

OUTPUT - LIMIT 5 CUSTOMERS PER PAGE WITH 

SUITABLE HEADING LINES 
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CAR BILLING PROBLEM 



000100 


IDENTIFICATION DIVISION. 












000110 


PROGRAM-ID. CARS. 










000 1 20 


AUTHOR. R GRAUER. 










000130 














000140 


ENVIRONMENT DIVISION. 










000150 


CONFIGURATION SECTION. 










000160 


SOURCE-COMPUTER. TRS-80. 










000170 


OBJECT-COMPUTER. TRS-80. 










000180 














000190 


INPUT-OUTPUT SECTION. 










000200 


FILE-CONTROL. 










000210 




SELECT CAR-RENTAL-FILE 










000220 




ASSIGN TO INPUT "CARS/DAT". 








000230 




SELECT PRINT-FILE 










000240 




ASSIGN TO PRINT "CARS/TXT". 








000250 














000260 


DATA DIVISION. 










000270 


FILE SECTION. 










000280 


FD 


CAR-RENTAL-FILE 










000290 




LABEL RECORDS ARE OMITTED 










000300 




RECORD CONTAINS 50 CHARACTERS 








000310 




DATA RECORD IS CAR-RENTAL- 


RECORD. 






000320 


01 


CAR-RENTAL -RE CORD 


PIC 


X(50). 






000330 














000340 


FD 


PRINT-FILE 










000350 




LABEL RECORDS ARE STANDARD 










000360 




RECORD CONTAINS 132 CHARACTERS 








000370 




DATA RECORD IS PRINT-LINE. 










000380 


01 


PRINT-LINE 


PIC 


X( 132) 






000390 














000400 


WORKING-STORAGE SECTION. 










000410 


01 


PROGRAM-SWITCHES. 










000420 




05 WS-DATA-REMAINS-SWITCH 


PIC 


X<2) 


VALUE SPACES. 




000430 




88 NO-MORE-RECORDS 






VALUE "NO". 




000440 




05 


WS-CAR-MAKE-SWITCH 


PIC 


X<3) 


VALUE SPACES. 




000450 


|88 CAR-CODE-EXPANDED 






VALUE "YES". | 




000460 












000470 


01 


PROGRAM-SUBSCRIPTS. 










000480 




05 CAR-MAKE-SUBSCRIPT 


PIC 


99. 






000490 














000500 


01 


DATE-WORK-AREA. 










000510 




05 TODAYS-YEAR 


PIC 


99. 






000520 




05 TODAYS-MONTH 


PIC 


99. 






000530 




05 TODAYS-DAY 


PIC 


99. 






000540 














000550 


01 


WS-RECORD-IN. 










000560 




05 SOC-SEC-NUM 


PIC 


9(9). 






000570 




05 CUST-NAME 


PIC 


X < 25 ) . 






000580 




05 DATE-RETURNED 


PIC 


9(6). 






000590 




05 


CAR-TYPE 


PIC 


X. 








000600 




88 COMPACT 






VALUE "C". 










* ucTiniiion or oo 


000610 






88 INTERMEDIATE 






VALUE " I " . 




level entries 


000620 






88 FULL-SIZE 






VALUE "F". 




000630 




SB VALID-TYPE-CODE 






VALUES "C* 


"I" "F". 




000640 




05 CAR-MAKE 


PIC 


X(3). 






000650 




88 VALID-MAKE-CODE 










000660 




VALUES ARE "BUI" 


"CAD 


" CHE " 


"CHR" "DAT" 




000670 




"FOR" 


"OLD 


"PON" 


"TOY" "VOL". 




000680 




05 DAYS-RENTED 


PIC 


99. 






000690 




05 MILES-DRIVEN 


PIC 


9(4). 






000700 














0007 1 


01 


WS-PRINT-LINE. 










000720 




05 FILLER 


PIC 


X(4) . 






000730 




05 SOC-SEC-NUM 


|PIC 


999B99B9999.I 




000740 




05 FILLER 


PIC 


X(4). 


N. 




000750 




05 CUST-NAME 


PIC 


X ( 25 ) . 


^^^N^^ 




000760 




05 FILLER 


PIC 


X(2). 


^ Use of blank as 


editing character 


000770 




05 CAR-TYPE 


PIC 


X. 






000780 




05 FILLER 


PIC 


X(4). 






000790 




05 PRINT-CAR-MAKE 


PIC 


X(10). 






000800 




05 FILLER 


PIC 


XX. 






000810 




05 DAYS-RENTED 


PIC 


Z9. 






000820 




05 FILLER 


PIC 


X(4) . 






000830 




05 MILES-DRIVEN 


PIC 


ZZZ9. 






000840 




05 FILLER 


PIC 


X(4). 






000B50 




05 CUSTOMER-BILL 


PIC 


**,t*9. 


99. 




000860 




05 FILLER 


PIC 


X(46). 






000861 














000870 


01 


CAR- 


MAKE-VALUES. 
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CAR BILLING (CONTINUED) 



000880 

000890 

000900 

000910 

000920 

000930 

000940 

000950 

000960 

000970 

000980 

000990 

001000 

001010 

001020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100 

001110 

001120 

001130 

001140 

001150 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340 

001350 

001360 

001370 

001380 

001390 

001400 

001410 

001420 

001430 

001440 

001445 

001450 

001460 

001470 

001480 

001490 

001500 

001510 

001520 

001530 

001540 

001550 

001560 

001570 

001580 

001590 

001600 

001610 

001620 

001630 

001640 

001650 

001660 



01 



01 



01 



01 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC X<13> VALUE "BUIBUICK 

PIC X(13) VALUE "CADCADALAC 

PIC X(13) VALUE "CHECHEVROLET " 

PIC X<13) VALUE "CHRCHRYSLER " 

PIC X(13) VALUE "DATDATSUN 

PIC X<13) VALUE "FORFORD 

PIC X(13> VALUE "OLDOLDSMOBILE" 

PIC X(13) VALUE "PONPONTIAC 

PIC X(13) VALUE "TOYTOYOTA 

PIC X < 1 3 > VALUE " VOLVOLKSMAGQN' 



■Table 
initialization 



CAR-MAKE-TABLE REDEFIN ES CAR-MAKE-VALUES . 
05 CAR-CODE-AND-VALUE |OCCURS 10 TIMES.H 

10 CAR-CODE PIC X(3). 

10 EXPANDED-CAR-MAKE PIC X(10). 



■Definition of a table 



PAGE-AND-L1NE-COUNTERS. 
05 WS-PAGE-COUNT 
05 WS-LINE-COUNT 

BILLING-CONSTANTS. 
05 WS-MILEAGE-RATE 
05 WS-DAILY-RATE 
05 WS-CUSTOMER-BILL 

HEADING-LINE-ONE. 

05 FILLER 

05 FILLER 

05 WS-PAGE-PRINT 

05 FILLER 



PIC 9(4) 
PIC 9<4) 



PIC 9V99. 
PIC 99V99. 
PIC 9(4)V99. 



PIC X(75) 
PIC X(4) 
PIC Z(4). 
PIC X(49) 



VALUE ZEROS. 
VALUE 6. 



|01 HEADING-LINE-fTJQ, 



05 FILLER " " ~Ei c X(25) 

05 TITLE- INFORMATION PI 

VALUE "JESSICA'S CAR RENTAL 
05 FILLER 
05 TITLE-DATE. 

10 TITLE-MONTH 

10 FILLER 

10 TITLE-DAY 

10 FILLER 

10 TITLE-YEAR 
05 FILLER 



VALUE SPACES. 
VALUE "PAGE". 



VALUE SPACES. 



VALUE SPACES. 



|01 HEADING-LINE-THREE. 




VALUE, 
VALUE " / " . 
VALUE SPACES. 



Definition of multiple 
heading lines 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(5) 

X( 11) 

X(5) 

X(4) 

X( 19) 

X(4) 

X(4) 

X(4) 

X<6> 

X(4) 

X(2) 

X(5) 

X<B) 

X(6) 

X(45) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



SPACES. 

" ACCT #" 

SPACES. 

"NAME". 

SPACES. 

"TYPE". 

SPACES. 

"MAKE". 

SPACES. 

"DAYS" . 

SPACES. 

"MILES". 

SPACES. 

"AMOUNT". 

SPACES. 



PROCEDURE DIVISION. 
100-PREPARE-CAR-BILLING-REPORT. 

I ACCEPT PATE-klORK-AREA FROM DATE?} 
OPEN INPUT CAR-RENTAL-FILE 

OUTPUT PRINT-FILE. 
READ CAR-RENTAL-FILE INTO WS-RECORD-IN 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 
PERFORM 200-PROCESS-RECORDS 

UNTIL NO-MORE-RECORDS. 
CLOSE CAR-RENTAL-FILE 

PRINT-FILE. 
STOP RUN. 

200-PROCESS-RECORDS 



• Obtains date of execution 



I if valid-type-code and valid-make-code i Compound test with 88 level entries 



PERFORM 
PERFORM 



300-COMPUTE-CAR-BILL 
400-WRITE-DETAIL-LINE 



ELSE 



DISPLAY "ERROR IN INCOMING CAR TYPE OR CAR MAKE 
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CAR BILLING (CONTINUED) 



001670 

001680 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

001780 

001790 

001800 

001810 

001820 

001830 

001840 

001850 

001860 

001870 

00 1880 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 

001990 

002000 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 | 

002110 

002120 

002130 

002140 

002150 

002160 

002170 

002180 

002190 

002200 

0022 1 

002220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 



ICUST-NAHE OF WS-RECORD-InTI 



Use of qualification 



READ CAR-RENTAL-FILE INTO WS-RECORD-IN 

AT END MOVE "NO" TO WS-DATA- REMAINS-SWITCH. 

300-COMFUTE-CAR-BILL. 



IF COMPACT 




MOVE .12 TO WS-MILEAGE-RATE 




MOVE 11.00 TO WS-DAILY-RATE 




ELSE 

IF INTERMEDIATE 






MOVE .14 TO WS-MILEAGE-RATE 




MOVE 12.00 TO WS-DAILY-RATE 




ELSE 




MOVE . 16 TO WS-MILEAGE-RATE 




MOVE 13.00 TO WS-DAILY-RATE. 





Nested IF determines 
appropriate rate 



COMPUTE WS-CUSTOMER-B ILL [ROUNDED 
MILES-DRIVEN OF WS-RECORD-IN 
+ DAYS-RENTE D OF WS-RECORD-IN 
ION SIZE ERROR 

DISPLAY "RECEI 

CUST-NAME OF WS-RECORTJ 



WS 



MILEAGE-RATE 
S-DAILY-RATE 



TOO SMALVFOR AMOUNT DUE 



400-WRITE-DETAIL-LINE. 

IF WS-LINE-COUNT > 5 

PERFORM 600-WRITE-HEADIN6. 
MOVE SPACES TO WS-PR I NT-LINE. 
MOVE CORRESPONDING WS-RECORD-IN TO WS-PR I NT-LINE 



ROUNDED and SIZE 
ERROR options 



INSPECT SOC-SEC-NUM OF WS- PRINT-LINE 
REPLACING ALL " " BY "-". 



MOVE WS-CUSTOMER-BILL TO CUSTOMER-BILL. 
MOVE "NO" TO WS-CAR-MAKE-SWITCH. 



PERFORM 500-EXPAND-CAR-MAKE-CODE 

VARYING CAR-MAKE-SUBSCRIPT FROM 1 BY 1 



UNTIL CAR-MAKE-SUBSCRIPT 
OR CAR-CODE-EXPANDED. 

WRITE PRINT-LINE FROM WS-PRINT- 

AFTER ADVANCING 2 LINES. 
ADD 1 TO WS-LINE-COUNT. 



.. I NE 




INSPECT statement inserts hyphens 
in social security number 



Use of PERFORM VARYING 



500-EXPAND-CAR-MAKE-CODE .1 — — 

IF CAR-MAKE = CAR-CODE (CAR-MAKE-SUBSCRIPT) 

MOVE EXPANDED-CAR-MAKE (CAR-MAKE-SUBSCRIPT) 

TO PRINT-CAR-MAKE 
MOVE "YES" TO WS-CAR-MAKE-SWITCH. 

600-WRITE-HEADING. 

ADD 1 TO WS-PAGE-COUNT. 

MOVE 1 TO WS-LINE-COUNT. 

MOVE WS-PAGE-COUNT TO WS-PAGE-PRINT. 

WRITE PRINT-LINE FROM HEADING-LINE-ONE 

AFTER ADVANCING PAGE. 
(MOVE TODAYS-DAY TO TITLE-DAY. j 
MOVE TODAYS-MONTH TO TITLE-MONTH. 
MOVE TODAYS-YEAR TO TITLE- YEAR. 
WRITE PRINT-LINE FROM HEADING-LINE-TWO 

AFTER ADVANCING 2 LINES. 
WRITE PRINT-LINE FROM HEADING-LINE-THREE 

AFTER ADVANCING 2 LINES. 



■ Table lookup is controlled by 
PERFORM VARYING 



Resets line count 
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TRUE/FALSE REVIEW 

1) EITHER OF OR IN CAN QUALIFY DATA NAMES. 

2) ROUNDED AND SIZE ERROR ARE MANDATORY IN A 
COMPUTE STATEMENT. 

3) FOR THE CORRESPONDING OPTION TO WORK, 
BOTH DATA NAMES MUST BE AT THE SAME LEVEL. 

4) QUALIFICATION OVER A SINGLE LEVEL WILL 
ALWAYS REMOVE AMBIGUITY OF DATA NAMES. 

5) THE SAME ENTRY MAY CONTAIN BOTH AN OCCURS 
CLAUSE AND A PICTURE CLAUSE. 

6) THE SAME ENTRY MAY NOT HAVE BOTH AN 
OCCURS CLAUSE AND A VALUE CLAUSE. 

7) ONE STATEMENT CANNOT HAVE TWO IFS AND ONE 
ELSE. 

8) CONDITION NAMES ARE ALSO KNOWN AS 77-LEVEL 
ENTRIES. 

9) THE SAME PERFORM CAN BE USED TO INITIALIZE 
AND INCREMENT A SUBSCRIPT. 

10) THE CONDITION PORTION OF AN IF MAY BE A 
COMPOUND CONDITION. 
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CHAPTER SEVEN: PROGRAMMING STYLE 

CODING GUIDELINES 

CHOOSE MEANINGFUL NAMES 

PREFIX ENTRIES WITHIN THE SAME 01 

USE FUNCTIONAL PARAGRAPHS 

ELIMINATE 77-LEVEL ENTRIES 

SPACE ATTRACTIVELY 

INDENT 

RESTRICT SUBSCRIPTS TO A SINGLE USE 

USE APPROPRIATE COMMENTS 

PERFORM PARAGRAPHS, NOT SECTIONS 

AVOID CONSTANTS 

KEEP IT SIMPLE 

USE 88-LEVEL ENTRIES 

STRUCTURED PROGRAMMING 



A GOOD PROGRAM IS ONE THAT CAN BE EASILY READ 
AND MAINTAINED BY SOMEONE OTHER THAN THE 
ORIGINAL AUTHOR. 
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SPACE ATTRACTIVELY 

VERTICAL ALIGNMENT OF PICTURE CLAUSES 

USE OF BLANK LINES 

BEFORE PARAGRAPH HEADERS 

BEFORE 01 ENTRIES 

BEFORE SPECIFIC VERBS (FOR EXAMPLE, IF) 

BEFORE FD'S 

BEFORE SECTION HEADERS 

USE OF EJECT (/ IN COLUMN 7) 
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CHOOSE MEANINGFUL DATA NAMES 

POOR CHOICE 

SWITCH-ONE 
TOTAL- 1 

IMPROVED CHOICE 

END-OF-TRANSACTION-FILE-SWITCH 
TOTAL-EMPLOYEE-GROSS-PAY 

PREFIX ENTRIES WITHIN THE SAME 01 

POOR CHOICE 

01 EMPLOYEE-RECORD 
05 SOC-SEC-NUMBER 
05 NAME 
05 ADDRESS 

IMPROVED CHOICE 

01 EMPLOYEE-RECORD 

05 EMP-SOC-SEC-NUMBER 
05 EMP-NAME 
05 EMP-ADDRESS 
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USE FUNCTIONAL PARAGRAPHS 

PARAGRAPH NAMES SHOULD CLEARLY INDICATE 
THE FUNCTION OF A PARAGRAPH 

USE A VERB, ADJECTIVE OR TWO, AND AN OBJECT 

SEQUENCE PARAGRAPHS 

POOR CHOICE 

0005-MAINLINE 

A010-READ-AND-WRITE 

READ-TRANSACTION-FILE 

IMPROVED CHOICE 

A01 0-WRITE-NEW-MASTER-RECORD 
1 000-PRODUCE-ERROR-REPORT 
2000-READ-TRANSACTION-FILE 
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• ELIMINATE 77-LEVEL ENTRIES 
POOR CODE 

77 COUNTER-ONE PIC 9(3) VALUE ZEROS. 

77 COUNTER-TWO PIC 9(3) VALUE ZEROS. 
77 COUNTER-THREE PIC 9(3) VALUE ZEROS. 

IMPROVED CODE 

01 RECORD-COUNTERS. 

05 NUMBER-OF-RECORDS-READ PIC 9(3) VALUE ZEROS. 

05 NUMBER-OF-GOOD-RECORDS PIC 9(3) VALUE ZEROS. 

05 NUMBER-OF-BAD-RECORDS PIC 9(3) VALUE ZEROS. 
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INDENT 

POOR CODE 

PERFORM INITIALIZE-TABLE VARYING 
LOCATION-SUB FROM 1 BY 1 UNTIL 
LOCATION-SUB > 3. 

READ EMPLOYEE-FILE AT END MOVE "YES" TO 

END-EMPLOYEE-SWITCH. 

WRITE PRINT-LINE AFTER ADVANCING PAGE. 

IMPROVED CODE 

PERFORM INITIALIZE-TABLE 

VARYING LOCATION-SUB FROM 1 BY 1 
UNTIL LOCATION-SUB > 3. 

READ EMPLOYEE-FILE 

AT END MOVE "YES" TO END-EMPLOYEE-SWITCH. 

WRITE PRINT-LINE 

AFTER ADVANCING PAGE. 
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NESTED IFS HAVE SPECIAL REQUIREMENTS 

1) INDENT SUCCESSIVE IFS 4 COLUMNS. 

2) PUT THE WORD ELSE ON A LINE BY ITSELF, AND 
DIRECTLY UNDER ITS ASSOCIATED IF. 

3) INDENT DETAIL LINES FOR BOTH IF AND ELSE 
FOUR COLUMNS. 

FOR EXAMPLE: 

IF CD-SEX IS EQUAL TO "M" 

IF CD-AGE IS GREATER THAN 30 

MOVE CD-NAME TO MALE-OVER-30 
ADD 1 TO NUMBER-QUALIFIED-MALES 

ELSE 

MOVE CD-NAME TO PRT-NAME 
ADD 1 TO MALE-UNDER-30. 
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RESTRICT SUBSCRIPTS TO A SINGLE USE 
POOR CODE 

77 SUBSCRIPT PIC 9(4). 



PERFORM COMPUTE-SALARY-HISTORY 
VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT > 3. 

PERFORM FIND-MATCHING-TITLE 

VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT > 100. 

IMPROVED CODE 

01 PROGRAM-SUBSCRIPTS. 

05 TITLE-SUBSCRIPT PIC 9(4). 

05 SALARY-SUBSCRIPT PIC 9(4). 

PERFORM COMPUTE-SALARY-HISTORY 

VARYING SALARY-SUBSCRIPT FROM 1 BY 1 
UNTIL SALARY-SUBSCRIPT > 3. 

PERFORM FIND-MATCHING-TITLE 

VARYING TITLE-SUBSCRIPT FROM 1 BY 1 
UNTIL TITLE-SUBSCRIPT > 100. 
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USE APPROPRIATE COMMENTS 

AVOID REDUNDANCY 

* CALCULATE NET PAY 

COMPUTE NET-PAY = GROSS PAY - FEDERAL-TAX. 

AVOID INACCURACY. 

ASSUME OTHER PROGRAMMERS KNOW COBOL AS 
WELL AS YOU. 

EXPLAIN WHY YOU ARE DOING SOMETHING, 
RATHER THAN WHAT YOU ARE DOING. 
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» PERFORM PARAGRAPHS, NOT SECTIONS 
PROCEDURE DIVISION. 

MAINLINE SECTION. 

MOVE ZEROS TO X. 

PERFORM A. 

PERFORM B. 

PERFORM C. 

PERFORM D. 

STOP RUN. 
A SECTION. 

ADD 1 TO X. 
B. 

ADD 1 TO X. 
C. 

ADD 1 TO X. 
D. 

ADD 1 TO X. 

WHAT IS THE FINAL VALUE OF X? 



156 



AVOID CONSTANTS 

POOR CODE 

PERFORM COMPUTE-STATE-TOTALS 

VARYING STATE-SUBSCRIPT FROM 1 BY 1 
UNTIL STATE-SUBSCRIPT > 50. 

COMPUTE AVERAGE-STATE-POPULATION = 
TOTAL-POPULATION / 50. 

IMPROVED CODE 

PERFORM COMPUTE-STATE-TOTALS 

VARYING STATE-SUBSCRIPT FROM 1 BY 1 
UNTIL STATE-SUBSCRIPT > 
NUMBER-OF-STATES. 

COMPUTE AVERAGE-STATE-POPULATION = 
TOTAL-POPULATION / 
NUMBER-OF-STATES. 
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KEEP IT SIMPLE 
POOR CODE 

COMPUTE GROSS-PAY 

= 52 * HOURLY-RATE 

+ (HOURS-WORKED - 48) * HOURLY-RATE *2. 

IMPROVED CODE 

IF HOURS-WORKED > 48 
COMPUTE GROSS-PAY 

= 40 * HOURLY-RATE 

+ 8* HOURLY-RATE * 1.5 

+ (HOURS-WORKED - 48) * HOURLY-RATE * 2. 
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USE 88-LEVEL ENTRIES 



POOR CODE 



IF (LOCATION-CODE = 48 OR 
LOCATION-CODE = 65) 

AND POLITICAL-PARTY = "D". 



IMPROVED CODE 

05 LOCATION-CODE 
88 MIAMI 
88 TAMPA 
88 FLORIDA 

05 POLITICAL-PARTY 
88 DEMOCRAT 
88 REPUBLICAN 



PIC 99. 
VALUE 48. 
VALUE 65. 
VALUES ARE 48, 65. 

PICX. 
VALUE "D". 
VALUE "R". 



IF FLORIDA AND DEMOCRAT 



159 



STRUCTURED PROGRAMMING: 

• HAS AS ITS OBJECTIVE, PROGRAMS WHICH ARE 
EASY TO READ AND MAINTAIN. 

• DEVELOPS PROGRAMS WHICH CONSIST SOLELY 
OF THREE KINDS OF BUILDING BLOCKS - 
SEQUENCE, SELECTION, AND ITERATION. 

• REQUIRES THAT EACH MODULE (OR BUILDING 
BLOCK) HAVE ONLY ONE ENTRY AND ONE EXIT 
POINT. 

• ALLOWS THE BASIC MODULES TO BE COMBINED 
IN ENDLESS VARIETY TO PRODUCE ANY 
REQUIRED LOGIC. 



160 



SEQUENCE 



B 



SELECTION 



(ELSE) 
FALSE 



(THEN) 
TRUE 




ITERATION 
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ONE SELECTION, ONE ITERATION, AND ONE SEQUENCE 




Iteration structure 



Sequence structure 



Selection structure 
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THREE SELECTION AND ONE SEQUENCE 




Selection structure 



Selection structure 



Selection structure 
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PAYROLL PROGRAM REWRITTEN 



000 100 
000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

0002B0 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 

000750 

000760 

000770 

000780 

000790 

000800 

000810 

000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 



IDENTIFICATION DIVISION, 
PROGRAM-ID. PAYR0LL2. 
AUTHOR. R GRAUER. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE- CONTROL. 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT " PAY ROLL /DAT" . 
SELECT PRINT-FILE 

ASSIGN TO PRINT " PAYROLL2/TXT" . 



DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTE 
RECORD CONTAINS 80 
DATA RECORD I 

01 EMPLO 



RECORD. 



05 



05 



05 
05 




Data names within an FD have common prefix 



-NAME. 
10 EMP-^rfST-NAME 
10 [fFipf FIRST-NAME 
EMP-HOURS-WORKED. 
10 EMP-REG-HOURS 
10 EMP-OVERTIME-HOURS 
EMP-RATE 
FILLER 



PIC 
PIC 

PIC 
PIC 
PIC 
PIC 



X<15). 
X< 10). 

99. 
99. 

99V99. 
X<47>. 



FD 



PRINT-FILE 
LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 
01 PRINT-LINE PIC X<132). 

WORK I N6-ST0RAGE SECT I ON . 

77 WS-DATA-REMAINS-SWITCH PIC X(3) 



VALUE SPACES. 



01 DATE-WORK-AREA. 
05 TODAYS-YEAR 
05 TODAYS-MONTH 
05 TODAYS-DAY 



PIC 99. 
PIC 99. 
PIC 99. 



-Holds date of execution 



01 IND-COMPUTATIONS. 



05 IND-REGULAR-PAY 

05 IND-OVERTIME-PAY 

05 IND-GROSS-PAY 

05 IND-FEDERAL-TAX 

05 IND-NET-PAY 



01 



COMPANY-TOTALS. 
05 CO-REGULAR-PAY 
05 CO-OVERTIME-PAY 
05 CO-GROSS-PAY 
05 CO-FEDERAL-TAX 
05 CO-NET-PAY 



01 PAGE-AND-L I NE-COUNTERS . 



'Common prefix 

PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9(4>V99. 

-PICTURE and VALUE clauses are vertically aligned 




05 WS-PAGE-COUNT 
05 WS-LINE-COUNT 



9(6)V99 
PIC 9~TTW4£?9 
PIC 9(6)V9S 
PIC 9(6)V99 
PIC 9<6)V99 



PIC 9(4) 
PIC 9(4) 



VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 



VALUE ZEROS. 
VALUE 4. 



01 HEADING-LINE-ONE. 

05 FILLER 

05 HDG-MONTH 

05 FILLER 

05 HDG-DAY 

05 FILLER 

05 HDG-YEAR 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 HDG-PAGE-NUMBER 

05 FILLER 

01 HEADING-LINE-TWO. 



^Page and line counters are required for page heading routine 



PIC X(4) . 
PIC Z9. 
PIC X 
PIC Z9. 
PIC X 
PIC 99. 
PIC X(40) 
PIC X(B) 
PIC X(6) 
PIC X<40) 
PIC X<4) 
PIC Z(4). 
PIC X(18) 



VALUE " / " . 

VALUE " / " . 

VALUE SPACES. 
VALUE "PAYROLL 
VALUE "REPORT". 
VALUE SPACES. 
VALUE "PAGE". 

VALUE SPACES. 
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000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
00 1 200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
00 1 420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



REWRITTEN PROGRAM (CONTINUED) 



ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 



DASHED-LINE. 

05 ROW-OF-DASHES 

05 FILLER 



01 DETAIL-LINE. 



05 
05 
05 
05 
05 



FILLER 

DET-LAST-NAME 

FILLER 

DET-RATE 

FILLER 



05 fnF^-RFft-HrtlJR^ 

05 FIL LER 

05 [DETH ->VLkl IML-HOURS 

05 FILLER 

05 DET-REGULAR-PAY 

05 FILLER 

05 DET-OVERTIME-PAY 

05 FILLER 

05 DET-GROSB-PAY 

05 FILLER 

05 DET-FEDERAL-TAX 

05 FILLER 

05 DET-NET-PAY 

05 FILLER 

01 TOTAL-LINE. 

05 FILLER 

05 FILLER 

05 FILLER 

05 TOTAL-REGULAR-PAY 

05 FILLER 

05 TOTAL-OVERTIME-PAY 

05 FILLER 

05 TOTAL-GROSS-PAY 

05 FILLER 

05 TOTAL-FEDERAL-TAX 

05 FILLER 

05 TOTAL-NET-PAY 

05 FILLER 

PROCEDURE DIVISION. 
1 00-PREPARE-PAYROLL . 

PERFORM 0200-GET-DATE. 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 

READ EMPLOYEE-FILE 




VALUE SPACES. 

VALUE "NAME". 

VALUE SPACES. 

VALUE "RATE". 

VALUE SPACES. 

VALUE "REG HOURS". 

VALUE SPACES. 

VALUE "O/T HOURS". 

VALUE SPACES. 

VALUE "REG PAY". 

VALUE SPACES. 

VALUE "O/T PAY". 

VALUE SPACES. 

VALUE "GROSS PAY". 

VALUE SPACES. 

VALUE "FED TAX". 

VALUE SPACES. 

VALUE "NET PAY". 

VALUE SPACES. 



Blank lines are inserted before 01 entries 



VALUE ALL "-" 
VALUE SPACES. 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



Z9. 

X(6) . 

**,**9.99. 

X<3). 

**.**9.99. 

X(2). 

**>**9.99. 

X(3). 

**,*S9.99. 

X<3). 

**,**9.99. 

X ( 23 ) . 



■Datanames within an 01 entry 
have a common prefix 



X(6> 

X(6) 

X(41 ) 

**.**9. 

X(3) 

**,**9. 

X(2) 

**,**9. 

X<3) 

S*,$*9. 

X(3> 

**,**9. 

X(47) 



VALUE 

VALUE 

VALUE 
99. 

VALUE 
99. 

VALUE 
99. 

VALUE 
99. 

VALUE 
99. 

VALUE 



SPACES. 

"TOTALS" 

SPACES. 

SPACES. 

SPACES. 

SPACES. 

SPACES. 

SPACES. 



IAT END MOVE "NO" TO WS-DATA-REMAINS-SUITCH.I 
PER FORM 0300-PROCESS-RECORDS \ 

(UNTIL WS-DATA-REMAINS-SMITCH = "NO".h -JX 



PERFORM 1000-WRITE-COMPANY-TOTALS. 
CLOSE EMPLOYEE-FILE 

PRINT-FILE. 
STOP RUN. 



Subservient clauses are indented 



ACCEPT statement to obtain date of execution 



200-GET-DATE. 



I ACCEPT DATE -WORK-AREA FROM DATE.I 
MOVE TODAYS- YEAR TO HDG-YEAR. 
MOVE TODAYS-MONTH TO HD6-MONTH. 
MOVE TODAYS-DAY TO HDG-DAY. 
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REWRITTEN PROGRAM (CONTINUED) 



001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

0017B0 

001790 

001800 

001810 

001820 

001830 

001840 

001850 

001860 

001870 

001880 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 

001990 



0300-PROCESS-RECORDS. 

PERFORM 0400-COMPUTE-GROSS-PAY. 
PERFORM 0500-COMPUTE-FEDERAL-TAX . 
PERFORM 0600-COMPUTE-NET-PAY. 
PERFORM 0700-UPDATE-COMPANY-TOTALS. 



IF 



WS-LINE-COUNT > 3 

PERFORM 0800-WRITE-HEADING-LINE. 



-Test to invoke heading routine 



PERFORM 0900-WR I TE-DETAI L-L I NE ■ 



lADD 1 TO WS-LINE-COUNT. ( 
READ EMPLOYEE-FILE 

AT END MOVE "NO" TO 



0800-WR I TE-HEAD I NG-L I NE . 

ADD 1 TO MS-PAGE-COUNT. 



WS-LINE-COUNT is reset to 1 in heading routine 

WS-DATA-REMAINS-SWITCH. 

^WS-LINE-COUNT is incremented for each detail line 



IMOVE 1 TO MS-LINE-COUNT. I 
MOVE WS-PAGE-COUNT TO HDG-PAGE-NUMBER. 
WRITE PRINT-LINE FROM HEADING-LINE-ONE 
AFTER ADVANCING PAGE. 



WRITE PRINT-LINE FROM 
AFTER ADVANCING 4 

WRITE PRINT-LINE FROM 
AFTER ADVANCING 1 

0400-COMPUTE-GROSS-PAY. | 



HEADING-LINE-TWO 
LINES. 
DASHED-LINE 
LINE. 



MULTIPLY EMP-REG-HOURS BY 
COMPUTE IND-OVERTIME-PAY 

= EMP-OVERTIME-HOURS * EMP-RATE 
ADD IND-REGULAR-PAY IND-OVERTIME-PAY 



Paragraph names are sequenced and functional 

EMP-RATE GIVING IND-REGULAR-PAY. 



> 1.5. 
GIVING 



IND-GROSS-PAY. 



002000 10500-COMPUTE-FEDERAL-TAX 



002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 | 

002110 

002120 

002130 

002140 

002150 

002160 

002170 

002180 

002190 

002200 

002210 

002220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 

002310 

002320 

002330 

002340 

002350 

002360 

002370 

002380 

002390 

002400 

0024 1 

002420 

002430 

002440 

002450 



COMPUTE IND-FEDERAL-T? 
IF IND-GROSS-PAY > 160 

COMPUTE IND-FEDERAL-m 
= IND-FEDERAL-TAX 



IF 



IND-GROSS-PAY > 200 
COMPUTE IND-FEDERAL 
= IND-FEDERAL-T, 



0600-COMPUTE-NET-PAY. 
' COMPUTE IND-NET-PAY 




IND-GROSS-PAY. 



* (IND-GROSS-PAY 



160). 



New functions in expanded payroll 



# (IND-GROSS-PAY - 200). 



= IND-GROSS-PAY 



IND-FEDERAL-TAX. 



0700-UPDATE-COMPANY-TOTALS. 

ADD IND-REGULAR-PAY TO CO-REGULAR-PAY. 
ADD IND-OVERTIME-PAY TO CO-OVERTIME-PAY. 
ADD IND-GROSS-PAY TO CO-GR OSS-PAY. 



ADD 
ADD 



IND-FEDERAL- 
IND-NET-PAY 



-TAX TO CO-FEDERAL 
TO CO-NET- PAY. 



0900-WRITE-DETAIL-LINE. 

MOVF SPACES TO DETAIL-LINE. 

MOVE EMP-LA3T-NAME TO DET-LAST-NAME. 

MOVE EMP-RATE TO DET-RATE. 

MOVF EMP-REG-HOURS TO DET-REG-HOURS. 

MOVE EMP-OVERTIME-HOURS TO DET-OVERTIM 

MOVE IND-REGULAR-PAY TO DET-REGULAR-P 

MOVE IND-OVERTIME-PAY TO DET-OVERTIME/-PAY. 

MOVE IND-GROSS-PAY TO P ET- GROSS-PAY. 




Existing modules have been expanded 



HOURS. 



MOVE 
MOVE 



IND-FEDERAL-TAX TO 
I ND-NET-PAY TO DET- 



DET-FEDERAL-TAX. 
-NET-PAY. 



WRITE PRINT-LINE FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES. , 



1000-WRITE-COMPANY-TOTALS. 

WRITE PRINT-LINE FROM DASHED-LINE 
AFTER ADVANCING 1 LINE. 



-Blank lines are inserted 
before paragraph names 



MOVE 
MOVE 
MOVE 
MOVE 
MOVE 



CO-REGULAR-PAY TO TOTAL-REGULAR-PAY. 
CO-OVERTIME-PAY TO TOTAL-OVERTIME-PAY. 
CO-GROSS-PAY TO TOTAL-GROSS-PAY. 
CO-FEDERAL-TAX TO TOTAL-FEDERAL-TAX. 
CO-NET-PAY TO TOTAL-NET-PAY. 



WRITE PRINT-LINE FROM 
AFTER ADVANCING 2 



TOTAL-LINE 
LINES. 
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TRUE/FALSE REVIEW 

1) COBOL REQUIRES THAT PARAGRAPH NAMES BE 
SEQUENCED. 

2) BLANK LINES ARE NOT PERMITTED IN A COBOL 
PROGRAM. 

3) A SLASH IN COLUMN 7 CAUSES THE NEXT LINE IN A 
LISTING TO BEGIN ON A NEW PAGE. 

4) 0100-READ-AND-COMPUTE IS A GOOD NAME 
FOR A COBOL PARAGRAPH. 

5) COMMENTS ARE INDICATED BY AN * IN COLUMN 7. 

6) A PROGRAM CANNOT HAVE TOO MANY COMMENTS. 

7) IT IS IMPOSSIBLE TO WRITE A PROGRAM WITHOUT 
77-LEVEL ENTRIES. 

8) TWO- AND THREE-LETTER DATA NAMES ARE 
DESIRABLE TO REDUCE PROGRAMMER CODING 
TIME. 

9) INDENTATION IS A WASTE OF TIME SINCE IT HAS NO 
EFFECT ON THE COMPILER. 

10) COBOL REQUIRES ALL PICTURE CLAUSES TO BEGIN 
IN THE SAME COLUMN. 
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APPENDIX: 
MULTIPLE CHOICE REVIEW QUESTIONS 
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1 . Which command is used to renumber a program? 

a) B 

b) N 

c) R 

d) S 

2. The command P 100 

a) Prints 100 lines. 

b) Prints line 100. 

c) Prints line 1 00 and the next 1 9 lines. 

d) None of the above. 

3. The COBOL compiler is invoked by the command 

a) CEDIT 

b) RUNCOBOL 

c) RSCOBOL 

d) COBPRT 

4. COB is the extension associated with: 

a) a COBOL source program. 

b) a COBOL data file. 

c) an object program (i.e. the output of a compile). 

d) a report printed by a COBOL program. 

5. An ANS COBOL program, written for a TRS-80, should also run on: 

a) A Univac, Honeywell, or IBM machine provided each has a COBOL compiler. 

b) Any machine which has a COBOL compiler. 

c) Both a and b above. 

d) None of the above. 

6. The four divisions in a COBOL program may: 

a) Appear in any order. 

b) Appear in any order so long as the Identification Division is first. 

c) Appear in any order so long as the Procedure Division is first. 

d) Must appear in the order Identification, Environment, Data and Procedure. 

e) Must appear in the order Identification, Data, Environment, and Procedure. 

7. All of the following are advantages of a computer except: 

a) Its ability to 'think' for itself. 

b) Its speed. 

c) Its accuracy. 

8. The 'logic' of a COBOL program is: 

a) Contained in the Procedure Division only. 

b) Contained in the Data Division only. 

c) Contained in any or all of the divisions. 

d) Contained in both the Procedure and Data Division. 
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9. If a COBOL program contains exactly 50 statements, the generated machine 
language program will most likely contain: 

a) Exactly 50 statements. 

b) Fewer than 50 statements. 

c) An even multiple of 50 statements. 

d) Many more than 50 statements. 

10. The COBOL compiler: 

a) Translates COBOL into machine language. 

b) Is a computer program. 

c) Is a piece of software. 

d) All of the above. 

11. A decision is indicated in a flowchart by: 

a) A rectangle. 

b) A triangle. 

c) A 'diamond' shaped block. 

d) A circle. 

12. Numeric literals may contain: 

a) Numbers. 

b) Letters. 

c) Numbers, letters, and special characters. 

1 3. Non-numeric literals may contain: 

a) Numbers. 

b) Letters. 

c) Special characters. 

d) Reserved words. 

e) All of the above. 

1 4. Filenames are likely to be contained in: 

a) All divisions. 

b) All divisions except the Identification Division. 

c) Only the Data Division. 

d) Only the Data and Procedure Divisions. 

1 5. Which of the following are valid as data names: 

a) SUM-OF-X 

b) IDENTIFICATION-DIVISION 

c) ABCDEFGHIJKLMNOPQRSTUVWXYZ 

d) All of the above. 

e) Only a and c above. 

16. A MOVE statement: 

a) May begin in or past column 12. 

b) May begin in or past the A margin. 

c) Must start in column 12. 

d) May start anywhere except in column 1 . 

e) Must end before column 62. 
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1 7. Which of the following must begin in the A margin: 

a) Division headers. 

b) Section headers. 

c) Paragraph names. 

d) 01 entries. 

e) All of the above. 

18. A Programmer defined data name cannot: 

a) Contain more than 30 characters. 

b) Be a reserved word. 

c) End on a hyphen. 

d) Contain all numbers. 

e) All of the above. 

19. A clean compile; i.e., a compilation with no errors, means that: 

a) Subsequent execution results will be correct. 

b) Only that the COBOL program has been successfully translated into machine 
language. 

c) The corresponding flowchart must be correct. 

d) All of the above. 

20. All of the following are valid numeric literals except: 

a) 123 

b) 123.45 

c) "$123.45" 

d) 0123.45 

21. Braces: i.e., { }, indicate: 

a) Optional reserved words. 

b) One of the enclosed items must be selected. 

c) Required reserved words. 

d) Programmer supplied information. 

e) None of the above. 

22. The use of parentheses in a COMPUTE statement: 

a) Is prohibited. 

b) Clarifies, but never alters, the order of operation. 

c) Clarifies, and always alters, the order of operation. 

d) Clarifies, and sometimes alters, the order of operation. 

23. The type of file; e.g., INPUT or OUTPUT is: 

a) Specified in an OPEN statement. 

b) Specified in a CLOSE statement. 

c) Specified in both an OPEN and CLOSE statement. 

d) Specified in neither an OPEN nor CLOSE statement. 
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24. Every COBOL program must have: 

a) Exactly one STOP statement. 

b) At least one STOP statement. 

c) A STOP statement as the last line in the Procedure Division. 

d) A maximum of 5 STOP statements. 

25. The COBOL SELECT statement: 

a) Is for documentation only and serves no useful purpose. 

b) Appears in the Data Division. 

c) Ties a programmer chosen file-name to a system name. 

d) Appears in the File-Control Paragraph. 

e) Both c and d above. 

26. All of the -following paragraphs belong in the Identification Division except: 

a) PROGRAM-ID. 

b) AUTHOR. 

c) SOURCE-COMPUTER. 

d) INSTALLATION. 

27. In describing a record layout (i.e., entries under an 01 record), the programmer may 
choose any level numbers from: 

a) 02 to 49 inclusive. 

b) 02 to 77 inclusive. 

c) 02 to 49 inclusive and 77. 

d) The set 05, 10, 15, 20, 25, 30, 35, 40, 45, 50. 

28. A 'filename' appears in all of the following statements except: 

a) OPEN. 

b) CLOSE. 

c) SELECT. 

d) READ. 

e) WRITE. 

29. The Working-Storage Section: 

a) Appears after the File Section. 

b) May contain 01 entries. 

c) May contain VALUE clauses. 

d) May contain PICTURE clauses with an assumed decimal point. 

e) All of the above. 

30. An entry prefixed by the level number 05 will: 

a) Always have a PICTURE clause. 

b) Always be an elementary item. 

c) Always appear in the File Section. 

d) All of the above. 

e) None of the above. 
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31. A group item: 

a) Never has a PICTURE clause. 

b) Must be an 01 entry. 

c) May sometimes have both a PICTURE and a VALUE clause. 

d) Will always have at least four data names defined under it. 

32. An elementary item: 

a) Never has a PICTURE clause. 

b) Can never be an 01 entry. 

c) May sometimes have both a PICTURE and a VALUE clause. 

d) May sometimes have additional data names defined under it. 

33. The following are all valid PICTURE clauses except: 

a) PIC 999 

b) PIC$$$ 

c) PIC $99 

d) PIC 990 

34. The Procedure Division: 

a) May contain several paragraphs. 

b) Must contain at least 3 paragraphs. 

c) Cannot have a single COBOL statement continue from line to line. 

d) Must contain at least one occurrence of each of the following verbs: MOVE, 
ADD, OPEN, CLOSE, and COMPUTE. 

35. All of the following will produce compilation errors except: 

a) Reading a record. 

b) Writing a file. 

c) Attempting to do arithmetic on a field defined as alphanumeric. 

d) Omitting a MOVE statement prior to a WRITE. 

36. Which of the following will cause a compilation error: 

a) 05 TITLE-FIELD PIC X(5) VALUE "COBOL". 

b) 05 IDENTIFICATION PIC X(5) VALUE "COBOL". 

c) 05 NUMERIC-FIELD PIC X(5). 

d) 05 ALPHA-FIELD PIC 9(5). 

37. If one misspelled 'ENVIRONMENT as the only error in a COBOL program: 

a) There would be no problem as the compiler would guess what the programmer 
intended. 

b) A single diagnostic would result. 

c) The program would compile almost perfectly, and probably would go to the 
execution phase. 

d) Many compilation errors would result. 

38. Which of the following would cause compilation error(s)? 

a) WORKING-STORAGE-SECTION. 

b) ENVIROMENT DIVISION 

c) START (as a paragraph name) 

d) All of the above. 
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39. Data names within the same COBOL program: 

a) Must be unique. 

b) May be qualified by OF only. 

c) May be qualified by IN only. 

d) May be qualified by either OF or IN. 

e) None of the above. 

40. The statement 'IF EXEMPT, PERFORM EXEMPT-ROUTINE' is: 

a) Syntactically invalid. 

b) Valid only if EXEMPT is defined as an 88 level entry. 

c) Valid regardless of how EXEMPT is defined. 

d) None of the above. 

41. The statement: IF X > Y OR X = Z AND X < W is considered true if: 

a) X>Y. 

b) X = ZANDX<W. 

c) X<W. 

d) All of the above. 

e) Either a or b above. 

42. The statement: IF A > B 

IFOD 

MOVE X TO Y 
MOVE S TO T 

MOVE X TO Z. 

a) Is syntactically invalid. 

b) Is syntactically valid, but misleading because the ELSE is not shown under the 
appropriate IF. 

c) Will move X to Z if A not greater than B. 

d) Will always move X to Y if A is greater than B. 

43. The statement: 'READ CARD-FILE INTO WS-CARD-AREA . . .': 

a) Will cause the input record to appear in two places. 

b) Will cause the input record to appear in WS-CARD-AREA only. 

c) Combines the effects of both a READ and a MOVE statement. 

d) Both a and c above. 

e) Both b and c above. 

44. The PERFORM verb: 

a) Can be used for sections only. 

b) Can be used for paragraphs only. 

c) Must have an associated THRU clause. 

d) Cannot cause the execution of more than a single paragraph. 

e) None of the above. 
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45. DATE is: 

a) A COBOL reserved word. 

b) A programmer-defined data name. 

c) The current Julian date. 

d) A five character area in the form mm/yy. 

46. The DISPLAY verb: 

a) Permits both a literal and a programmer-defined data name to appear in the 
same sentence. 

b) Permits several data names to appear in the same sentence. 

c) Does not require a corresponding record description in the Data Division. 

d) Can direct output directly to the console. 

e) All of the above. 

47. Which of the following is a valid example of a subscripted entry: 

a) HOURLY-RATE (3). 

b) HOURLY-RATE ( 3). 

c) HOURLY-RATE(3). 

d) HOURLY-RATE (3 ). 

48. The statement "PERFORM PAR-A VARYING WS-SUB FROM 1 BY 1 UNTIL 
WS-SUB = 10" will: 

a) Execute PAR-A 10 times. 

b) Execute PAR-A 9 times. 

c) Execute PAR-A once. 

d) Is an invalid form of the PERFORM verb. 

49. Given the entries: 05 SALES-TABLE OCCURS 12 TIMES. 

1 SALES-VOLUME PIC 9(6). 

10 SALES-MONTH PICX(10). 

a) A total of 16 bytes is defined in storage for SALES-TABLE. 

b) A total of 1 92 bytes is defined in storage for SALES-TABLE. 

c) The first 72 bytes of SALES-TABLE relate to SALES-VOLUME, the last 120 
bytes relate to SALES-MONTH. 

d) Both b and c above. 

50. The following are all valid forms of the PERFORM verb except: 

a) PERFORM PAR-A NUMBER-TRANSACTION TIMES. 

b) PERFORM PAR-A. 

c) PERFORM PAR-A TWICE. 

d) PERFORM PAR-A VARYING WS-SUB FROM 1 BY 1 UNTIL WS-SUB = 10. 
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